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The purpose of this guide is to enable 
programmers to compile, link edit, and 
execute FORTRAN IV programs under control 


of IBM System/360 Operating System. The 
FORTRAN IV language is described in the 
publication IBM System/360 FORTRAN IV_Lan- 
quage, Form C28-6515, which is the corequi- 
site to this publication. 


The Programmer's Guide is organized to 
fulfill its purpose at three levels: 


1. Programmers who will use the cataloged 
procedures as provided by IBM should 
read the "Introduction" and “Job Con- 
trol Language" sections to understand 
the job control Statements, the 
"FORTRAN Job Processing" section to 
understand the use of cataloged proce- 
dures, the "Programming Considera- 
tions" section to be able to use _ the 
FORTRAN language correctly and effi- 
ciently, and the "System Output" sec- 
tion to understand the listings, maps, 
and messages generated by the compil- 
er, the linkage editor, and a load 
module. 


in addition, are con- 
cerned with creating and retrieving 
data sets, optimizing the use of I/0 
devices, or temporarily modifying IBM- 
Supplied cataloged procedures should 
read the entire Programmer's Guide. 


2. Programmers who, 


3. Programmers concerned with making 
extensive use of the operating system 
facilities, such as writing their own 
cataloged procedures, modifying the 
FORTRAN library, or calculating region 
Size for operating in a multiprogram- 
ming environment with a variable num- 
ber of tasks, Should also read the 
entire Programmer's Guide in conjunc- 
tion with the following publications, 
as required: 


IBM System/360 Operating System: System 
Programmer's Guide, Form C28-6550 


IBM System/360 Operating System: Supervi- 


sOr and Data Management Services, Form 
C28-6646 


IBM System/360 Operating System: Storage 
Requirements, Form C28-6551 


PREFACE 


IBM System/360 Operating System: Job Con- 
trol Language, Form C28-6539 


IBM System/360 Operating System: Utili- 
ties, Form C28-6586 


IBM System/360: FORTRAN IV, Library Sub- 
programs, Form C28-6596 


IBM System/360 Operating System: Linkage 
Editor, Form C28-6538 | 


IBM System/360 Operating System: System 
Generation, Form C28-6554 


IBM System/ 360 Operating System: 
Operator's Guide, Form C28-6540 


IBM System/360 Operating System: 


Programmer's Guide to Debugging, Form 
C28-6670 


IBM System/360 Operating System: Messages 
and Codes, Form C28-6631 


This publication contains 
that provide the programmer with the 
lowing information: 


appendixes 
fol- 


e Descriptions and explanations of com- 
piler invocation from a problem pro- 
gram. 


e Examples of job processing. 


e Descriptions and explanations for the 
preparation of subprograms written in 
assembler language for use with a main 
program written in FORTRAN. 


e Detailed descriptions of the diagnostic 
messages produced during compilation 
and load module execution. 


e A list of USA carriage control charac- 
ters. 


e Descriptions of the output from the 
debug facility. 


For easier reading, the titles of publi- 
cations referred to in this publication are 
abbreviated. For example, references to 


the publication IBM System/360 Operating 


System: Linkage Editor are abbreviated to 
"Linkage Editor publication." 
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The IBM System/360 Operating System (the 
operating system) consists of a control 
program and processing programs. The con- 
trol program supervises execution of all 
processing programs, such as the FORTRAN 
compiler, and all problem programs, such as 
a FORTRAN program. Therefore, to execute a 
FORTRAN program, the programmer must first 
communicate with the operating system. The 
medium of communication between the pro- 
grammer and the operating system is the job 
control language. 


The programmer uses job control state- 
ments to define two units of work to the 
operating system: the job and the job step, 
and to define the files (data sets) used in 
these jobs and job steps. He defines a job 
to the operating system by using a JOB 
Statement; a job step by using an EXEC 
Statement; and a data set by using a DD 
statement. 


JOB AND JOB STEP RELATIONSHIP 


To the operating system, a job consists 
of executing one or more job steps. In the 
Simplest case, a job consists of one job 
step. For example, executing a FORTRAN 
main program to invert a matrix is a job 
consisting of one job step. 


In more complex cases, one job may 
consist of a series of job steps. For 
example, a programmer iS given a tape 


containing raw data froma 
he must transform this 
series of graphs and reports. 
may be defined: 


rocket firing: 
raw data intoa 
Three steps 


1. Compare the raw data to projected data 
and eliminate errors which arise 
because of .intermittent errors in 
gauges and transmission facilities. 


2. Use the refined data and a set of 
parameters as input to a set of equa- 
tions, which develop values for the 
production of graphs and reports. 

3. Use the values to plot the graphs and 

print the reports. 


Figure 1 illustrates the rocket firing 
job with three job steps. 


INTRODUCTION 


In the previous example, each step could 
be defined aS a separate job with one job 


step in each job. However, designating 
related job steps as one job is more 
efficient: processing time is decreased 


because only one job is defined, and inter- 


dependence of job steps may be. stated. 
(The interdependence of jobs cannot be 
Stated.) 

Raw 

Data 


Job Step 1: 
Refine Data 


Projected 


Data 





Refined 
Data 


Job Step 2: 


Parameters Develop Values 


Job Step 3: 
Generate 
Graphs and 
Reports 








Figure 1. Rocket Firing Job 


FORTRAN PROCESSING AND CATALOGED PROCEDURES 


When a programmer writes a FORTRAN  pro- 
gram, the objective is to obtain a problem 
solution. However, before the program can 
provide this solution, the program itself 
must undergo processing. The source pro- 
gram (source module) is compiled to give an 
object module; and the object module is 
link edited to give a load module. This 
load module is then executed to give the 
desired problem solution. 


If each of the three steps involved in 
processing a FORTRAN module is a job step 
in the same job, a set of job control 
statements that consists of one EXEC state- 
ment and one or more DD statements is 
required for each step. Becausé writing 
these job control statements can be time- 
consuming work for the programmer, IBM 
supplies cataloged procedures to aid in the 
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processing of FORTRAN modules. A cataloged 
procedure consists of a procedure step or a 
series of procedure steps. Each step 
contains the necessary set of job control 
statements to compile or to link edit or to 
execute a FORTRAN module. (Note: A JOB 
statement cannot be cataloged.) 


Four FORTRAN cataloged procedures are 
Supplied by IBM. These four cataloged 
procedures and their uses are: 


FORTGC compile 

FORTGCL compile and link edit 

FORTGLG link edit and execute 

FORTGCLG compile, link edit, and execute 


Any of the cataloged procedures can be 
invoked by an EXEC statement in the input 
stream. In addition, each of the proce- 
dures can be temporarily modified by this 
EXEC statement and any DD statements in the 
input stream; this temporary modification 
is called overriding. 


DATA SETS 


For FORTRAN processing, a programmer 
uses DD statements to define the particular 
data set(s) required for a compile, link 
edit, or execute step. In the operating 
system, a data set is a named, organized 
collection of one or more records that are 
logically related. For example, a data set 
may be a source module, a library of 
mathematical functions, or the data proc- 
essed by a load module. 


Data Set Organization 


A data set is a named collection of 


data. Several methods are available for 
internally organizing data _ sets. Three 
types of data sets are accessible in FOR- 


TRAN processing: sequential data sets, par- 
titioned data sets, and direct access data 
sets. 


A sequential data set iS organized in 
the same way as a data set that resides on 


a tape volume, but a sequential data set 
may reside on any type of volume. The 
compiler, linkage editor, and load modules 
process sequential data sets. The compiler 
uses the queued sequential access method 
(QSAM) for Such processing, and load 
modules use the basic sequential access 
time method (BSAM) for object time I/O 
operations. 
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A partitioned data set (PDS) is composed 
of named, independent groups of sequential 
data and resides on a direct access volume. 
A directory index resides in the PDS and 
directs the operating system to any group 
of sequential data. Each group of sequen- 
tial data is called a member. (A nember of 
a PDS is not a data set.) Partitioned data 
sets are used for storage of any type of 
sequentially organized data. In particu- 
lar, they are used for storage of source 
and load modules (each module is a member). 
In fact, a load module can be executed only 
if it is a member of a partitioned data 
set. A PDS of load modules is created by 
either the linkage editor or a utility 
program. A PDS is accessible to the lin- 
kage editor; however, only individual mem- 
bers of a PDS are accessible to the compil- 
er. Members of a PDS are not accessible to 
a FORTRAN load module. 


The FORTRAN library is a cataloged PDS 
that contains the library subprograms in 
the form of load modules. SYS1.FORTLIB is 
the name given to this PDS. 


A direct access data set contains 
records that are read or written by speci- 
fying the position of the record within the 
data set. When the position of the record 
is indicated in a FIND, READ, or WRITE 
statement, the operating System goes 
directly to that position in the data set 
and either retrieves, reads, or writes the 
record. For example, with a sequential 
data set, if the 100th record is read or 
written, all records preceding the 100th 
record (records 1 through 99) must _ be 
transmitted before the 100th record can be 
transmitted. With a direct access data set 
the 100th record can be transmitted direct- 
ly by indicating in the I/O statement that 
the 100th record is to be transmitted. 
However, in a direct access data set, 
records can only be transmitted by direct 
access I/O statements; they cannot be 
transmitted by sequential I/O statements. 
Records ina direct access data set can be 
transmitted sequentially by using the asso- 
ciated variable in direct access I/O state- 
ments. 


A direct access data set must reside on 
a direct access volume. Direct access data 
sets are processed by FORTRAN load modules; 
the compiler and linkage editor cannot 
process direct access data _ sets. Load 
modules process data sets of this type with 
the basic direct access method (BDAM). 


Saying that a data set is sequential, . 
partitioned, or direct access reflects its 
organization. Saying that a data set is 
cataloged or that it is a generation data 
set reflects a method of retrieving the 


data set. Sequential, partitioned, and 
direct access data sets can be cataloged; 
however, an individual member of a PDS 
cannot be cataloged because a member is not 
a data set. A generation data set can only 
be a sequential or direct access data _ set; 
a generation data set cannot be a PDS or a 
member of a PDS. (See the section "Job 
Control Language" for information on how to 


Specify a generation data set.) 


Data Set Labels 


that reside on direct-access 
Standard labels only; data 

reside on magnetic tape volumes 
standard labels or no labels. 
such as a data set identifier, 
record format, den- 


Data sets 
volumes have 
sets that 
can have 
Information, 
volume sequence number, 


etc., is stored in the data set 

The information required in the DD 
statement used to retrieve a labeled data 
set is substantially less than that 
required to retrieve an unlabeled data set. 


sity, 
labels. 


Data Set Cataloging 


To relieve the programmer of the burden 
of remembering the volume on which a par- 
ticular data set resides, the operating 
system provides a cataloging facility. 
When a data set iS cataloged, the serial 
number of its volume is associated in the 
catalog with the data set name. A program- 
mer can refer to this data set without 
specifying its physical location. Any data 
set residing on a direct-access or magnetic 
tape volume can be cataloged. 
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JOB CONTROL LANGUAGE 


The FORTRAN programmer uses the job 
control statements shown in Table 1 to 
compile, link edit, and execute programs. 


Table 1. Job Control Statements 
ane cae ars a ee ee a ae 1 
| Statement| Function | 
| JOB JIndicates the beginning of a| 
| |new job and describes that job. | 
| EXEC [Indicates a job step and de-| 
|scribes that job step; indi-| 


| 
| Jcates the cataloged procedure] 
[ [or load module to be executed. | 


| DD {Describes data sets, and con-| 
| Jtrols device and volume assign-| 
| |ment. | CODING JOB CONTROL STATEMENTS 
}~--~~-~--}---~----------~---------------- { 
|delimiter|Separates data sets in the] . 
| Jinput stream from control | Job control statements are identified by 
| |statements; it appears after| the initial characters // or /* in card 
| | [each data set in the input| columns 1 and 2, and may contain three 
| [| stream. | fields -- name, operation, and operand (see 
L_—--~-—-~— 1 -——----~—~—-——— —--~— + ~~ ---—-—- 4 Figure 2). 
JOB_MANAGEMENT 
NAME FIELD 

Job control statements are processed by 
a group of operating system routines known 
collectively as job management. Job man- The name contains between one and eight 
agement routines interpret control state- alphameric or national characters, the 
ments, control the flow of jobs, and issue first of which must be alphabetic. The 
messages to both the operator and the name begins in card column 3 and is fol- 
programmer. Job management has two major lowed by one or more blanks to separate it 
components: a job scheduler and a master from the operation field. The name is used 
scheduler. in the following ways: 

The specific facilities available 1. To identify the control statement to 
through the job scheduler and the master the operating system. 
scheduler depend on the scheduling level 
the installation selects during system gen- 2. TO enable other control statements in 
eration. Schedulers are available at two the job to refer to information con- 
levels -- the sequential scheduler and the tained in the named statement. 
more powerful priority scheduler. 

3. TO relate DD statements to 

Sequential schedulers process job steps, input/output statements in the load 
one at a time, in the order of their module. 
ee er ge ey ee ee rn Dra ee ee ee 1 
| FORMAT j APPLICABLE CONTROL STATEMENTS | 

wo--~-+---+~~- +--+ +--+ - + +--+ +--+ -- $---------~------------~~--++------+-------- 4 

|77Name Operation Operand [Comment] |] JOB, EXEC,DD | 
|7/ Operation Operand [Comment] j EXEC, DD | 
]}7* (Comment] ] delimiter | 
Gti as Se ee et Rc a a et Pm ere aOR ae ee ee ea el ee ere eer J 


2. Job Control Statement Formats 


appearance in the input stream. Operating 
Systems with a primary control program 
(PCP) and those that provide multiprogram- 
ming with a fixed number of tasks (MFT) use 
sequential schedulers. 


Priority schedulers process jobs accord- 
ing to their relative priority and availa- 
ble system resources, and can accept input 
data from more than one input stream. 
Systems that provide multiprogramming with 
a variable number of tasks (MVT) use prior- 
ity schedulers. 


OPERATION FIELD 


The operation field contains one of the 
following operation codes: 


JOB 
EXEC 
DD 


If the statement is a delimiter state- 
ment, the operation field is blank. The 
operation code is preceded and followed by 
one or more blanks. 


OPERAND FIELD 


The operand field contains the parame- 
ters that provide required and optional 
information to the operating system. 


Parameters are separated by commas, and the 
operand field is ended by placing one or 
more blanks after the last parameter. 
There are two types of parameters; posi- 
tional and keyword. 


Positional Parameters: Positional parame- 
ters are placed first in the operand field 
and must appear in the specified order. If 
a positional parameter is omitted and other 
positional parameters follow, the omission 
must be indicated by a comma. 


Keyword Parameters: Keyword parameters 
follow positional parameters in the operand 


field. (If no positional parameters 
appear, a keyword parameter can appear 
first in the operand field; no leading 
comma iS required.) Keyword parameters are 
not order dependent, i.e., they may appear 
in any order. If a keyword parameter is 
omitted, a comma is not required to indj- 
cate the omission. 


ara Ss:  Subparameters are either 
positional or keyword and are noted as such 
in the definition of control statements. 


Positional subparameters appear first in 
a parameter and must appear in the speci- 
fied order. If a positional subparameter 
is omitted and other positional subparame- 
ters follow, the omission must be indicated 
by a comma. 


Keyword subparameters follow positional 
Subparameters in a parameter. (If no posi- 
tional subparameters appear, a keyword sub- 
parameter can appear first in the parame- 
ter; no leading comma is required.) Key- 
word subparameters are not order dependent, 
i1.e., they may appear in any order. If a 
keyword subparameter is omitted, a comma is 
not required to indicate the omission. 


CONTINUING CONTROL STATEMENTS 


A control statement can be written in 
card columns 1 through 72. If a control 
Statement exceeds 71 columns, it may be 
continued onto the next card. The continu- 
ation must be interrupted after the comma 
that follows the last parameter on the card 
and a nonblank character must be placed in 
column 72. The continuation card must 
contain // in columns 1 and 2, blanks in 
columns 3 through 15, and the continued 
portion of the statement must begin in 
column 16. 


Note: Excessive continuation cards should 
be avoided whenever possible to reduce 
processing time for the control program. 





COMMENTS 


Comments must be separated from the last 
parameter (or the * in a delimiter 
statement) by one or more blanks and may 
appear in the remaining columns up to and 
including column 71. 


However, comments may be continued by 
placing a nonblank character in column 72, 
// in columns 1 and 2 of the continuation 
card, and continuing the comment in any 
column after column 15 (columns 3-15 must 
be blank). There is no limit to the number 
of continuation cards that may be used for 
a Single control statement or comment. 
Also, there is no limitation placed upon 
the number of comment cards that may be 
contained in the source program. 


NOTATION FOR DEFINING CONTROL STATEMENTS 


The notation used in this publication to 
define control statements is described in 
the following paragraphs. 


1. The set of symbols listed below are 
used to define control statements, but 
are never written in an actual state- 


ment. 

a. hyphen = 

b. or | 

c. underscore a 
d. braces { } 
e. brackets C J 
f. ellipsis 5.8 
g. superscript a 


The special uses of these symbols are 
explained in paragraphs 4-10. 
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Uppercase letters and words, numbers, 
and the set of symbols listed below 
are written in an actual control 
statement exactly as shown in the 
Statement definition. (Any exceptions 
to this rule are noted in the defini- 
tion of a control statement.) 


ae apostrophe 


+ «a 


b. asterisk 

Cc. comma ; 

d. equal sign = 
e. parentheses ( ) 
£. period 

ge slash 


Lowercase letters, words, and symbols 
appearing in a control statement defi- 
nition represent variables for which 
specific information is substituted in 
the actual statement. 


Example: If "name" appears in a state- 
ment definition, a specific value 
(e.g., ALPHA) is substituted for the 
variable in the actual statement. 


Hyphens join lowercase letters, words, 
and symbols to form a single variable. 


Example: If "member-name" appears in a 
Statement definition, a specific value 
(e.g., BETA) is substituted for the 
variable in the actual statement. 


Stacked items or items separated from 
each other by the "or" symbol rep- 
resent alternatives. Only one such 
alternative should be selected. 


Example: The two representations 
A 


B and A[B|C 
Cc 


have the same meaning and indicate 
that either A or B or cC should be 
selected. 


An underscore indicates a default 
option. If an underscored alternative 
is selected, it need not be written in 
the actual statement. 


Example: The two representations 
A 


B and A|Bjc 
Cc 


have the same meaning and indicate 
that either A or B orcC should be 
selected; however, if B is selected, 
it need not be written, because it is 
the default option. 


Braces group related items, such as 
alternatives. 


Example: 
ALPHA=({A|B]C},D) 


Indicates that a choice should be made 
among the items enclosed within the 
braces. If A is selected, the result 
is ALPHA=(A,D). If C is selected, the 
result can be either ALPHA=(,D) or 
ALPHA=(C,D). 


8. Brackets also group related items; 
however, everything within the brack- 
ets is optional and may be omitted. 


Example: 
ALPHA=([A]B|CJ],D) 


indicates that a choice can be made 
among the items enclosed within the 
brackets or that the items within the 
brackets can be omitted. If Bis 
selected, the result is ALPHA=(B,D). 
If no choice is made, the result is 
ALPHA=(,D). 


9. An ellipsis indicates that the preced- 
ing item or group of items can be 
repeated more than once in succession. 


Example: 
ALPHAI[, BETA]... 


indicates that ALPHA can appear alone 
or can be followed by ,BETA repeated 
optionally any number of times in 
succession. 


10. A superscript refers to a prose de- 
Scription in a footnote. 


Example: (NEW)+ 
OLD 
MOD 








indicates that additional information 
concerning the grouped items is con- 
tained in footnote number 1. 


11. Blanks are used to improve the reada- 
bility of control statement defini-. 
tions. Unless otherwise noted, blanks 
have no meaning in a statement defini- 
tion. 


JOB STATEMENT 


The JOB statement (Figure 3) is the 
first statement in the sequence of control 
statements that describe a job. The JOB 
statement contains the following informa- 
tion: 


1. Job name. 


2. Accounting information relative to the 
jOb. 


3. Programmer's name. 


4. Whether the job control statements are 
printed for the programmer. 


5. Conditions for terminating the execu- 
tion of the job. 


6. A job priority assignment. 


7. Output class for priority scheduler 
messages. ‘ 
8. Specification of main storage require- 
ments for a job. 
Examples of the JOB statement are shown 
in Figure 4, 


NAME FIELD 


The "jobname" must always be specified; 
it identifies the job to the operating 
system. No two jobs being handled concur- 
rently by a priority scheduler should have 
the same "jobname." 


OPERAND FIELD 


The first positional parameter can con- 
tain the installation account number and 
any parameters passed to the installation 
accounting routines. These routines are 
written by the installation and inserted in 
the operating system when it is generated. 
The format of the accounting information is 
Specified by the installation. 


As a system generation option with 
sequential schedulers, the account number 
can be established as a required parameter. 
With priority schedulers, the requirement 
can be established with a cataloged proce- 
dure for the input reader. (Information on 
how to write an accounting routine may be 
found in I5BM System/360 Operating System: 
Systems Programmer's Guide.) Otherwise, 
the account number is optional. 


Programmer‘s Name 


The “programmer name" is the second 
positional parameter. If no job accounting 
information is coded, its absence must be 
indicated by a comma preceding the 
programmer's name. If neither job account- 
ing information nor programmer‘s name is 
present, commas need not be used to indi- 
cate their absence. 


This parameter is optional unless it is 
made mandatory at the installation in the 
same way as job accounting information is 
made mandatory. 


Control Statement Messages 


The MSGLEVEL parameter indicates the 
type of control statement messages the 
programmer wishes to receive from the con- 
trol program. 


MSGLEVEL=0 
indicates that only control statement 
errors and diagnostic messages are 


written for the programmer. 


MSGLEVEL=1 
indicates that all control statements 
as well as control statement errors 
and diagnostic messages are written 
for the programmer. 


Note: If an error occurs on ae control 
statement that is continued onto one or 
more cards, only one of the continuation 


cards is printed with the diagnostic messa- 
ges. 


Conditions for Terminating a Job 


At the completion of a job step, a code 
is issued indicating the outcome of the job 
step. The generated code is tested against 
the conditions stated in control state- 
ments. The error codes generated by the 
FORTRAN compiler are: 


0 - No errors or warnings detected. 


4 - Possible errors (warnings) detected, 
execution should be successful. 


8 - Errors detected, execution may fail. 
Compilation continues regardless of 
the errors. If a LOAD option has been 
specified, a LOAD module will be sup- 
plied unless the error code generated 
is greater than the error level speci- 
fied by the programmer. 
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Positional Parameters 
{ ({account-number] [, accounting-information]) 4%, 2s 3] 
{, programmer-name] 4» 5s 6 


Keyword Parameters 


MSGLEVEL=0 
MSGLEVEL=1 


[COND=( (code, operator) [, (code,operator) ]...7) 8] 
{PRTY=nn] 9 
[MSGCLASS=x] 9 


{REGION=nnnnnk] ? 


cee com eters Guew ects Ge cme a EE ees GET SEES ene Giese ED Gee GE GD Swe 


j+If the information specified ("account-number" and/or "accounting-information") con- | 
| tains blanks, parentheses, or equal signs, it must be delimited by apostrophes instead| 
] of parentheses. | 
|2If only “account-number" is specified, the delimiting parentheses may be omitted. | 
{2?The maximum number of characters allowed between the delimiting parentheses or] 
| apostrophes is 144, | 
|*If “programmer-name" contains commas, parentheses, apostrophes, or blanks, it must be| 
| enclosed within apostrophes. 

| SWhen an apostrophe is contained within "PEQgE ate ET RAUE: i the apostrophe must be shown] 
| as two consecutive apostrophes. | 
j}©The maximum number of characters allowed for "programmer-name" is 20. | 
|7The maximum number of repetitions allowed is 7. | 
|®If only one test is specified, the outer pair of parentheses may be omitted. | 
j°This parameter is used by the priority scheduler only. The sequential  scheduler| 
| ignores it. | 


Figure 3. JOB Statement 


IBM 80 Column Key Punch Layout 
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Figure 4. Sample JOB Statements 











12 - Severe errors detected, execution is tionship between the code placed in the JOB 
impossible. Statement and the codes issued by completed 
| job steps. If the relationship is true, 

16 - Terminal errors detected, compiler the job is terminated. The six operators 
operation terminated. (If a terminal and their meanings are: 
error is detected during load module exe- 
cution, a 16 is issued.) 


Operator Meaning 
The COND parameter specifies conditions GT greater than 
under which a job is terminated. Up to GE | greater than or equal to. 
eight different tests, each consisting of a EQ equal to 
code and an operator, may be specified to NE not equal to 
the right of the equal sign. The code may LT less than 
be any number between 0 and 4095. The LE less than or equal to 


operator indicates the mathematical rela- 
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For example, if a code 8 is returned by 
the compiler and the JOB statement con- 
tains: 


COND=(7, LT) 


the job is terminated. 


If more than one condition is indicated 
in the COND parameter and any condition is 
satisfied, the job is terminated. 


Assigning Job Priority (PRTY): 
(Used by Priority Schedulers Only) 


To asSign a priority other than the 
default job priority (as established in the 
input reader procedure), PRTY=nn must be 
coded in the operand field of the JOB 
statement. The term "nn" is to be replaced 
with a decimal number from 0 through 14 
(the highest priority number is 14). 


Whenever possible, avoid using priority 
14. This is used by the system to expedite 
processing of exceptional jobs. It is also 
intended for other special uses by future 
features of systems with priority schedul- 
ers. 


If the PRTY parameter iS omitted, the 
default job priority is assumed. 


Requesting a Message Class (MSGCLASS): 
(Used by Priority Schedulers Only) 


With a quantity and diversity of data in 
the output stream, an installation may want 
to separate different types of output data 
into different classes. Each class is 
directed to an output writer associated 
with a specific output unit. The 
MSGCLASS=x parameter allows the messages 
issued by the job scheduler to be routed to 
an output class other than the normal 
message class, A. Replace the letter "x" 
with an alphabetic or numeric character. 
An output writer, which is assigned to 
process this class, will transfer this data 
to a specific device. 


Specifying Main Storage Requirements for a 
Job (REGION): 


(Used by Priority Schedulers Only) 


REGION=nnnnnkK can be specified to indi- 
cate the amount of main storage to be 
allocated to the job. Replace the term 


“nnnnn™ with the number of 1024-byte areas 


allocated to 


to be the job; e.g., 
REGION=100K. This number can range from 
one to five digits and cannot exceed 


16,384. 


If the REGION parameter is omitted, the 
default region size (as established in the 
input reader procedure) is assumed. 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of in the JOB statement. 


EXEC STATEMENT 


The EXEC statement (Figure 5) indicates 
the beginning of a job step and describes 
that job step. The statement can contain 
the following information: 


1. Name of the job or procedure step. 


2. Name of the cataloged procedure or 
load module to be executed. 


3. Compiler and/or linkage editor options 
passed to the job step. 


4. Accounting information relative to 
this job step. 


5. Conditions for bypassing the execution 
of this job step. 


6. A time limit for the job step or an 
entire cataloged procedure. 


7. Specification of main storage require- 
ments for a job step or an entire 
cataloged procedure. 


Example 1 of Figure 6 shows the EXEC 
statement used to execute a program. Exam- 
ple 2 in Figure 6 shows an EXEC statement 
that invokes a cataloged procedure. 


NAME FIELD 


The “stepname" is the name of the job 
step or procedure step. It is required 
when information from this job step is 
referred to in a later job step. : 
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Positional Parameter 


//(Ustepname]2|EXEC 
cataloged-procedure-name 
PGM=program-name 
PGM=*.stepname. ddname 
. PGM=*.stepname. procstep.ddname, 


‘PROC=cataloged-procedure-name 


Keyword Parameters 
| PARM 
PARM. procstep?) =(option[,option]...) 3s 45 


ACCT 
| oe ioe eae ee 


COND 
| ae ee ree 
{, (code, operator[, stepname[.procstep]])]...8)9] 


Fe aed Aaa 
TIME.procstep2 = (minutes, seconds) 


| 

| Ilssczon. | *°) 

| |(REGION procekens} = nnnnnkK 
| *I£ information aa this control statement is referred to in a later job step, | 
| “stepname" is required. | | 
| 2If this format is selected, it may be repeated in the EXEC statement, once for _ each| 
| step in the cataloged procedure. | 
] *I1f the information specified contains blanks, parentheses, or equal signs, it must be] 
| delimited by apostrophes instead of parentheses. 
| *“I£ only one option is specified and it does not contain any blanks, parentheses, or| 
| equal signs, the delimiting parentheses may be omitted. 
| 
| 
| 
| 
| 
| 


FT oe ee ee ee ee owe OS ee ree 8 ee ce OO es oe oe oe ee oe 
celle cee cee ces me ee Cm gprs ct es ee ems ees GS ee GD ee ee ee ES ee ee Gee anes gees 


SThe maximum number of characters allowed between the delimiting apostrophes or| 
parentheses is 40. The PARM parameter cannot occupy more than one card. 
6Tf "“accounting-information" does not contain commas, blanks, parentheses, or equal| 
Signs, the delimiting parentheses may be omitted. 
7The maximum number of characters allowed between the delimiting apostrophes or| 


parentheses is 144. | 

SThe maximum number of repetitions allowed is 7. : | 

9If only one test is specified, the outer pair of parentheses may be omitted. | 
|7°This parameter is used by priority schedulers only. Sequential schedulers ignore it. | 
|7+If only minutes are given, the parentheses need not be used. If only seconds are| 
| given, the parentheses must be used and a comma must precede the seconds. | 
L 


Figure 5. EXEC Statement 
OPERAND FIELD gram from a previous job step of the same 


Positional Parameter 


Specifying a Cataloged Procedure: 


The options in the positional parameter pee eae a Odeon Poe ee ame 
Of an EXEC statement specify either the cataloged-procedure-name 


name of the cataloged procedure or program indicate that a cataloged procedure is 

to be executed. invoked. The “cataloged procedure 
name" is the name of the cataloged 

Each program (load module) to be execut- procedure. For example, 

ed must be .a member of a library (PDS). 

The library can be the system library // EXEC PROC=FORTGC 

(SYS1.LINKLIB), a private library, ora or 

temporary library created to store a pro- // EXEC FORTGC 
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eFigure 6. Sample EXEC Statements 















indicates that the cataloged procedure //MCLX JOB , JOHNSMITH, COND=(7, LT) 
FORTGC is to be executed. . 
Specifying a Program in a Library: //STEPY EXEC PGM=IEWL 
//SYSLMOD DD DSNAME=MATH (ARCTAN) 
PGM=program-name 7 
indicates that a program is executed. ;: 
The "program name" is a member name of ° 
a load module in either the system //STEP5 EXEC PGM=*.STEP4.SYSLMOD 


library (SYS1.LINKLIB) or a private 


library. For example, 
statement STEP5 indicates that the 


| name of the program is taken from the 

// EXEC PGM=IEWL DD statement SYSLMOD in job step 
STEP4. Consequently, the load module 
ARCTAN in the PDS MATH is executed. 

indicates that the load module IEWL is 

executed. (A load module in a private 

library is identified to the operating 

system through the use of a JOBLIB DD 

statement. See the discussion con- 

cerning JOBLIB under “Data Definition hoe is ; ; 

(DD) Statement" in this section.) pbecet ying —_a__Program Described in a Cata~ 

sOgeaqa Frocedaure: 


ying a Program Described in a Pre- 
Specifyin a Ee ram Described in a Pre PGM=*.stepname. procstep. ddname 


Vi0us_ JOD ste indicates that the name of the program 
to be executed is taken from a DD 
statement of a previously executed 
Step of a cataloged procedure. The * 
indicates the current job; “stepname" 
is the name of the job step that 


PGM=* .stepname. ddname 
indicates that the name of the program 
to be executed is taken from a DD 
Statement of a previous job step. The 


* indi job; 

: ange Cates the current job; invoked the cataloged procedure; 
Stepname" is the name of a _ previous "procstep" is the name of a ster 
step within the current job; and within the procedure; "ddname" is phe 


~“ddname" is the name of a DD statement 
within that previous job step. (The nosed 7 ( a a 
"stepname" cannot refer to a job step ee Bare ‘ a The “stepname" can- 
in another job.) The program referred ‘ob.) ae 2 i Job step in another 
to must be a member of a PDS. For , a4 r example, consider a cata- 
example, in the statements, oged procedure FORT, 


name of a DD statement within the 
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//COMPIL EXEC PGM=IEYFORT 
//SYSPRINT DD SYSOUT=A 
//SYSPUNCH DD UNIT=SYSCP 


//SXYSLIN DD DSNAME=LINKINP 


Ld 


//UKED EXEC 
/4/SYSLMOD DD 


PGM=IEWL 
DSNAME=RESULT (ANS ) 


oe 


Furthermore, assume the following 
Statements are placed in the input 
stream. 

//XULIV JOB , SMITH, COND=(7,LT) 
4/81 EXEC PROC=FORT 


4/82 EXEC PGM=*.S1.LKED.SYSLMOD 
//FTO3FO001L DD UNIT=PRINTER 
//FTO1TFO01 DD UNIT=INPUT 


The statement S2 in the input stream 
indicates that the name of the program 
is taken from the DD statement SYSLMOD 


in the procedure step LKED in the 
procedure FORT, which was invoked by 
the EXEC statement Si. Consequently, 


the load module ANS in the PDS RESULT 
is executed. 


Keyword Parameters: 


The keyword parameters may refer toa 
program, to an entire cataloged procedure, 
or to a step within a cataloged procedure. 


Options for the Compiler and Linkage  Edi- 
tor: 


The PARM parameter is 
options to the compiler or linkage 


used tO pass 
editor. 


(PARM has no meaning to a FORTRAN load 
module. ) 
PARM a 

passes options to the compiler or 


linkage editor, when either is invoked 
by the PGM parameter in the EXEC 
Statement, or to the first step in a 
cataloged procedure. 
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PARM. procstep 
passes options to a compiler or link- 
age editor step within the named cata- 
loged procedure step. 


The format for compiler options, and 
those linkage editor options most applica- 
ble to the FORTRAN programmer is shown in 
Figure 7. 


Detail information concerning compiler 
and linkage editor options is given in the 
section "FORTRAN Job Processing." 


Condition for Bypassing a_ Job Step: 


This COND parameter (unlike the one in 


the JOB statement) determines if the job 
step defined by the EXEC statement is 
bypassed. 

COND — 


States conditions for bypassing the 
execution of a program or an entire 
cataloged procedure. 


COND. procstep 
states conditions for bypassing the 
execution of a specific cataloged pro- 
cedure step "procstep". 


The subparameters for the COND parameter 
are of the form: 


(code, operator [,stepname]) 
The subparameters "code" and "operator" 


are the same as the code and operator 
described for the COND parameter in the JOB 


statement. The subparameter "“stepname" 
identifies the previous job step that 
issued the code. For example, the COND 
parameter 


COND=((5, LT, FORT), (5, LT, LKED) ) 


indicates that the step in which the COND 
parameter appears is bypassed if 5 is less 
than the code returned by either of the 
steps FORT or LKED. 


If a step in a cataloged procedure 
issued the code, "“stepname" must qualify 
the name of the procedure step; that is, 


(code, operator[,stepname.procstep] ) 
If "“stepname" is 


compared to all codes 
job steps. 


not given, “code" is 
issued by previous 














Linkage Editor: 


ey MAP 


ga ese et 
|Compiler: 

| 

aes * | LIST , SOURCE 

| PARM BEOESEES = NOLIST (, NAME=xxxxxx] (, LINECNT=xxJ] ) , NOSOURCE 
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| , DECK MAP , LOAD , BCD ,ID fa, 2 
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!2tThe subparameters (options) are keyword subparameters. 
blanks, parentheses, 


|2If°’ the information specified contains 











or equal signs, it must | 


| not be delimited by parentheses, but by apostrophes. | 


Accounting Information: 


The ACCT parameter specifies accounting 
information for a job step within a job. 


ACCT 
is used to pass accounting information 
to the installation accounting rou- 
tines for this job step. 


ACCT. procstep 
is used to pass accounting information 
for a step within a cataloged proce- 
dure. 


If both the JOB and EXEC statements 
contain accounting information, the instal- 
lation accounting routines decide how the 
accounting information shall be used for 
the job step. 


Setting Job Step Time Limits (TIME): 
(Used by Priority Schedulers Only) 


To limit the computing time used by a 
Single job step or cataloged procedure 
step, a maximum time for its completion can 
be assigned. Such an assignment is useful 
in a multiprogramming environment where 
more than one job has access to the comput- 
ing system. 


The time is coded in minutes and sec- 
onds. The number of minutes cannot exceed 
1439. The number of seconds cannot exceed 
59. If the job step is not completed in 
this time, the entire job is terminated. 
(If the job step execution time is expected 
to exceed 1439 minutes (24 hours) TIME=1440 
can be coded to eliminate job step timing.) 
If the TIME parameter is omitted, the 
default job step time limit (as established 
in the cataloged procedure for the input 
reader) is assumed. 


TIME 
asSigns a time limit for a job step or 
for an entire cataloged procedure. 
For a cataloged procedure, this param- 
eter overrides all TIME parameters 
that may have been specified in the 
procedure. 

TIME. procstep 


assigns a time limit for a single step 
of a cataloged procedure. This param- 
eter overrides, for the named step, 
any TIME parameter which is present. 
AS many parameters of this form as 
there are steps in the cataloged pro- 
cedure being executed can be written. 


Specifying Main Storage Requirements for a 


Job Step (REGION) : 
(Used by Priority Schedulers Only) 


The REGION parameter may be specified in 
the JOB statement, in which case it over- 
rides REGION parameters specified in the 
EXEC statements and applies to all steps of 
the job. However, if it is desired to 
allot to each step only as much storage as 
it requires, the REGION parameter should be 
omitted from the JOB statement and EXEC 
Statements should contain a REGION parame- 
ter specifying the amount of main storage 
to be allocated to the associated job step. 
If the REGION parameter iS omitted from 
both JOB and EXEC statements, the default 
region size (as established in the cata- 
loged procedure for the input reader) is 
assumed. The size is specified in the form 
"“nnnnnK" where "nnnnn™" is the number of 
1024-byte areas to be allocated to the job 
step; e.g., REGION=100K. 


REGION 
specifies a region size for the job 
step or for the entire cataloged pro- 
cedure. For a cataloged procedure, 
this parameter overrides all REGION 


Job Control Language 21 


parameters that may have been speci- 


fied in the procedure. 


REGION. procstep 


specifies a region size for a single 
Step of a cataloged procedure. This 
parameter overrides the REGION parame- 
ter in the named cataloged procedure 
step, if one is present. AS many 
parameters of this form as there are 
steps in the cataloged procedure being 
executed can be written. 


For a discussion of the region size 


required for FORTRAN jobs, see "Cataloged 
Procedures." 


DATA DEFINITION (DD) STATEMENT 


The DD statement (Figure 8) describes 
data 


sets. The DD statement can contain 


the following information: 


1. Name of the data set to be processed. 
2. Type and number of I/0 devices for the 
data set. : 
3. Volume(s) on which the data set 
resides. 
4. Amount and type of space allocated on 
a direct-access volume. 
5. Label information for the data set. 
6. Disposition of the data set after 
execution of the job step. 
7. Allocation of data sets with regard to 
channel optimization. | 
NAME FIELD 
ddname 


499 


is used: 


1. To identify data sets defined by 
this DD statement to the compiler 
or linkage editor. 


2. To relate data sets defined by 
this DD statement to data set 
reference numbers used by the 
programmer in his source module. 


3. To identify this DD statement to 
, other control statements in the 
input stream. 


The “ddname" format is given in "FORTRAN 
Job Processing." 


procstep.ddname 


is used to override DD statements in 
cataloged procedures. The step in the 
cataloged procedure is identified by 
“procstep." The "“ddname" identifies 
either: 


1. A DD statement in the cataloged 
procedure that is to be modified 
by the DD statement in the input 
stream, or | 


2. ADD statement that is to be 
added to the DD statements in the 
procedure step. 


JOBLIB 


is used to concatenate partitioned 
data sets with the system library; 
that is, the operating system library 
and the data sets specified in the 
JOBLIB DD statement are temporarily 
combined to form one library. The 
JOBLIB statement must immediately fol- 
low a JOB statement, and the concate- 
nation is in effect only for the 
duration of the job. In addition, 
“DISP=(OLD,PASS)" must be specified in 
the JOBLIB DD statement. 


(See the following text concerning the 
DISP parameter.) Only one JOBLIB 
Statement may be specified for a job. 


The "PGM=program name" parameter in 
the EXEC statement refers to a load 
module in the system library. Howev- 
er, if this parameter refers to a load 
module in a private library, a JOBLIB 
statement identifying the PDS in which 
the module resides must be specified 
for the job. The JOBLIB statement 
concatenates the system library with 
the private library. 


eran teas a a a aa ae cae a | 
Operation|Operand+ | 


--------- }-------------------------------------------------------44 


|Positional Parameter 


* 4 
DUMMY 
DATA 


Keyword Parameters® 
DDNAME=ddname 


dsname 
dsname (element) 


*,. ddname 
DSNAME= <*.stepname.ddname 
*,stepname. procstep. ddname 


ban ood 
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( ddname 2 
//\ procstep. ddname 
\soBL1B2 


&éname 
Sname (element) 


(UNIT=(subparameter-list) ] 
(DCB=(subparameter-list) ] 
(VOLUME=(subparameter-list) ] 


SPLIT=(subparameter-1list) 


| setrr(subparaneter-1isw | 
SUBALLOC= (subparameter-list) 


(LABEL= (subparameter-list) ] 


DISP= (subparameter-list) 

SYSOUT=A 

SYSOUT=B 

SYSOUT=(x[,program-name] [,form-no.]) 6 7 
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}+A DD statement with a blank operand field can be used to override parameters specified| 
| in cataloged procedures. (See “Overriding and Adding DD Statements" in the _ section| 
| “Cataloged Procedures"..) 

|?The name field is blank when concatenating data sets. (Note the exception for the use| 
| of JOBLIB.) | 
|*The JOBLIB statement precedes any EXEC statements in the job. (See the discussion| 
| concerning JOBLIB under "Name Field" in this section.) | 
|*If either DATA or * is specified, keyword parameters cannot be specified. | 
| >If “subparameter-list" consists of only one subparameter and no leading comma| 
| (indicating the omission of a positional subparameter) is required, the delimiting| 
| parentheses may be omitted. | | 
|}®This form of the parameter is used only with priority schedulers. | 
|7I£ program-name and form no. are omitted, the delimiting parentheses can be omitted. |] 
a a a rt Bee J 


Figure 8. Data Definition Statement 
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Blank Name Field 


The library indicated in the JOBLIB If the name field is blank, the data 
Statement is searched before the system set defined by the DD statement is 
library is searched. concatenated with the data set defined 

in the preceding DD statement. In 

Note: A JOBLIB statement does not have effect, these two data sets are com- 
to be entered for load modules created in bined into one data set. Other parti- 
this job, or for permanent members of the tioned data sets (not individual mem- 
system library. bers of a PDS) may also be concatenat- 


ed with the data set specified in the 
JOBLIB DD statement. Therefore, the 
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system library may be concatenated 
with several partitioned data sets. 


Note: In concatenation of data sets, 
neither of the designated data sets 
may be in the input stream. Also, 
data sets whose records are of differ- 
ent length and/or different formats 
cannot be concatenated. 


OPERAND FIELD 


For purposes of discussion, parameters 
for the DD statement are divided into seven 
functions: 


e Specify data in the input stream. 
e Specify unit record data sets. 


e Retrieve a previously created and cata- 
loged data set. 


e Retrieve a data set which was created 
in a previous job step in the current 
job and passed to the current job step. 


e Retrieve a data set created but not 
cataloged in a previous job. 


e Create data sets that reside on magnet- 
ic tape or direct-access volumes. 


e Optimize I/O operations. 


The following text describes the DD 
statement parameters that apply to: 


1. Processing unit record data sets. 


2. Retrieving data sets created 
vious job steps. 


in pre- 

3. Retrieving data sets created and cata- 
loged in previous jobs. 

See Figure 9 for applicable parameters. 

The method of retrieving uncataloged 


data sets created in previous jobs is also 
‘discussed in this section. 
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tions in 


en 


dsname 

dsname (element) 

*. ddname 

*.stepname. ddname 
*.stepname.procstep.ddname 
Sname 

Sname (element) 


DSNAME= 


UNIT=(namel, {n|P}2])3 
PRTSP=0 
PRTSP=1 


PRTSP=2 


PRTSP=3 ) ) 


DCB=( < 


( | {HODEEI fe , STACK=1 
MODE=C) |, STACK=2 


SYSOUT=A 
SYSOUT=B 
SYSOUT=(x[, program-name] (,form-no.]) 7» 8 


«DELETE | 4% 


OLD , KEEP 
DISP=( )NEW , PASS )s 

MOD , CATLG 

SHR , UNCATLG 


LABEL=(subparameter-list) 6 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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| VOLUME=(subparameter-list) 6 

J*If£f either of these two parameters is 

| selected, it must be the only parameter 
{ selected. 
}2If neither 
| is assumed. 
|27If only “name" is specified, the delim- 
| iting parentheses may be omitted. 

|*The assumption for the second subparam- 
} eter is discussed in “Specifying the 
| 
| 
| 


"n" nor "P" is specified, 1 


Disposition of a Data Set" in this 
section. 
SThe subparameters are positional. 
|°See the section "Creating Data Sets." 
|7This form of the parameter is used only 
] with priority schedulers. 
}®If program-name and form no. are 
| omitted, the delimiting parentheses can 
{| be omitted. 


Figure 9. DD Statement Parameters 


Parameters shown in Figure 8 and not 
mentioned in this section are used to 
create data sets and optimize I/O opera- 
job steps. These parameters are 
discussed in the sections "Creating Data 


Sets" and "Programming Considerations." 
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Figure 10. 


Specifying Data in the Input Stream: 


* 


DATA 


indicates that a data set (e.g., a 
source module or data), immediately 
follows this DD statement in the input 
Stream (see Figure 10). 
Statement for the job step invokes a 
cataloged procedure, a data set may be 
placed in the input stream for each 
procedure step. If the EXEC statement 
Specifies execution of a program, only 
one data set may be placed in the 
input stream. The DD * statement must 
be the last DD statement for the 
procedure step or program. The end of 
the data set must be indicated by a 
delimiter statement. The data cannot 
contain // or /* in the first two 
characters of a record. 


also indicates data in the input 
stream. The restrictions and use of 
the DATA parameter are the same as the 
*, except that // may appear in the 
first and second positions in a 
record. 


UNIT Parameter: 


UNIT=(namel[, {n]P}]) 


Specifies the name and number of I/0 
devices for a data set (see Figure 
10). When the system is generated, 
the "name“ is assigned by the operat- 
ing system or the installation and 
represents a device address, a device 
type, or a device class. (See the 
System Generation publication.) The 


programmer can use only the assigned 
names in his DD statements. For exam- 
ple, 


If the EXEC | 


n|P 


6 SS SEs lw Te oo cw oe Vn Ts sO ve 
/ISYSPUNCH DD UNIT=SYSCP»DCB=STACK=2 ral ee 


Examples of DD Statements for Unit Record Devices 


UNIT=190, UNIT=2311, UNIT=TAPE 


where 190 is a device address, 2311 is 


a device type, and TAPE iS a device 
class. 
specifies the number of devices allo- 


cated to the data set. If a number 
"n" is specified, the operating system 
assigns that number of devices to the 
data set. Parallel, "P", is used with 
cataloged data sets when the required 
number of volumes is unknown. The 
control program assigns a device for 
each volume required for the data set. 


DCB Parameter: 


DCB=PRTSP={0|1]| 2] 3} 


sdestlmcpEze 


is used to indicate line spacing for 
the printer. The digits 0, 1, 2, and 
3 indicate no space, single space, 
double space, and triple space, re- 
spectively. This subparameter is not 
effective if A (for USA carriage con- 
trol characters) has been specified in 
the RECFM parameter (refer to the 


paragraph on Record Format in the 
section "Creating Data Sets"). 

MODE=E je Srnen— | 

, STACK=2 $) | 

Specify options for the card read 
punch. The MODE subparameter indi- 
cates whether the card is transmitted 
in column binary mode (C) or EBCDIC 
mode (E). 

The STACK subparameter indicates a 


stacker selection for the card read 


punch. 
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Routing a Data Set to an Output Stream | 


(SYSOUT): 


Through the use of the SYSOUT parameter, 
output data sets can be routed to a_ system 
output stream and handled much the same as 
system messages. 


SYSOUT=A 

can be used with sequential schedulers 
to indicate that the data set is to be 
written on the system output device. 
No parameter other than the DCB param- 
eter has any meaning when SYSOUT=A is 
used. With systems providing mul- 
tiprogramming with a fixed number of 
tasks, the processing program that 
writes the data must be in the lowest 
priority partition. 


SYSOUT=B 
can be used with sequential schedulers 
to indicate the system card punch 
unit. The priority scheduler will 
route the output to class B. 


SYSOUT=(x[, program-name] (,form-no.]) 

is used with priority schedulers. 
When priority schedulers are used, the 
data set is normally written on an 
intermediate direct access device dur- 
ing program execution and later routed 
through an output stream to a system 
Output device. The character "x" can 
be alphabetic or numeric, specifying 
the system output class. Output writ- 
ers route data from the output classes 
to system output devices. The DD 
statement for this data set can also 
include a unit specification describ- 
ing the intermediate direct access 
device and an estimate of the space 
required. If these parameters are 
omitted, the job scheduler provides 
default values as the job is read and 
processed. 


If there is a special installation 
program to handle output operations, 
its “program-name" should be _  speci- 
fied. "Program-name" is the member 
name of the program, which must reside 
in the system library. 


If the output data set is to be 
printed or punched on a specific type 
of output form, a four-digit 
“form-no." should be specified. This 
form number is used to instruct the 
operator, in a message issued at the 
time the data set is to be printed, of 
‘the form to be used. 
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Retrieving Previously Created Data Sets 


If a data set is created with standard 
labels and cataloged in a previous job, all 


information for the data set, Such as 
record format, density, volume sequence 
number, device type, etc., is stored in the 


catalog and labels. This information need 
not be repeated in the DD statement used to 


retrieve the data set; only the name 
(DSNAME) and disposition (DISP) is 
required. 


If a data set was created in a previous 
job step in the current job, and its 
disposition was specified as PASS, all the 
information in the previous DD statement is 
available to the control program and is 
accessible by referring to the previous DD 
statement by name. To retrieve the data 
set, a pointer to a data set created in a 
previous job step is specified by the 
DSNAME parameter. The disposition (DISP) 
of the data set is also specified. If more 
than one unit is to be allocated, the UNIT 
parameter is specified, too. 


If a data set is created with standard 
labels in a previous job but was not 
cataloged, information pertaining to the 
data set, such as record format, density, 
volume sequence number, etc., is stored in 


the label; the device type information is 
not stored. To retrieve the data set, the 
name (DSNAME), disposition (DISP), volume 


serial number (VOLUME), and device (UNIT) 


“must be specified. 


If a data set is created with no labels 
and cataloged, device type information is 


stored in the catalog. To retrieve the 
data set, the name (DSNAME), disposition 
(DISP), volume serial number (VOLUME), 


LABEL and DCB parameters must be specified. 


of the use of DD statements to 
sets are 


Examples 
retrieve previously created data 
Shown in Figure 11. | 


IDENTIFYING A CREATED DATA SET: The DSNAME 
parameter indicates the name of a data set 
or refers to a data set defined in the 
current or a previous ‘job step. 


Specifying a Cataloged Data Set by Name: 


DSNAME=dsname 

the fully qualified name of the data 
set is indicated by “dsname." If the 
data set was previously created and 
cataloged, the control program uses 
the catalog to find the data set and 
instructs the operator to mount the 
required volumes. 


Specifying a Generation Data Group or PDS: © Referring to a Data Set in a Previous Job 


Step: 
DSNAME=dsname (element) > 
indicates either a generation data set DSNAME=*.stepname.ddname 


contained in a generation data groun, 
or a member of a partitioned data set. 
The name of the generation data group 
Or partitioned data set is indicated 
by “dsname"; if “element" is either 0 
Or a Signed integer, a generation data 
set is indicated. For example, 


DSNAME=FIRING(-2) 


indicates the third most recent member 
of the generation data group FIRING. 
(See the Data Management publication 
for a description of generation data 


sets.) If “element" is a name, a 
member of a partitioned data set is 
indicated. 


Note: Members of a partitioned data 
set cannot be read as input to a 
FORTRAN object program or created as 
output from a FORTRAN object program 
even though the member name has been 
Specified in the DSNAME parameter of a 
DD statement. 


indicates a data set that is defined 
in a DD statement in a previous job 
step in this job. The * indicates the 
current job, and "“stepname" is the 
name of a previous job step. The name 
of the data set is copied from the 
DSNAME parameter in the DD statement 
named "“ddname." For example, in the 
control statements: 


// LAUNCH JOB 

//JOBLIB DD DSNAME=FIRING, X 
DISP=(OLD, PASS) 

//S1 EXEC PGM=ROCKET 


//FT01F001 DD DSNAME=RATES(+1), X 
DISP=OLD 
//ETO9FO001 DD DSNAME=TIME, X 


DISP=(OLD, PASS) 

//S2 EXEC PGM=DISTANCE 

//¥TO8FOO01 DD DSNAME=*.S1.FTO9FO01, xX 
DISP=OLD 

//FTO5SFO01 DD * 


The DD statement FTO8F001 in job step 
S2 indicates that the data set name 
(TIME) is copied from the DD statement 
FTO9F001 in job step S1. 


Step: Referring to a Data Set in a _Cataloged 
Procedure: 


DSNAME=* ..ddname 


indicates a data set that is defined DSNAME=*.stepname.procstep. ddname 


previously in a DD statement in this 
job step. The * indicates the current 
job. The name of the data set is 
copied from the DSNAME parameter in 
the DD statement named “ddname." 


Sample Coding Form 


2!-30 3 


indicates a data set that is defined 
in a cataloged procedure invoked by a 
previous job step in this job. The * 
indicates the current job; “stepname" 
is the name of a previous job step; 
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Figure 11. Retrieving Previously Created Data Sets 
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"procstep" is the name of a step in 
the cataloged procedure. The name of 
the data set is copied from the DSNAME 
parameter in the DD statement named 
"ddname. " 


Assigning Names to Temporary Data Sets: 


DSNAME=éname 

assigns a name to a temporary data 
set. The control program assigns’ the 
data set a unique name which exists 
only until the end of the current job. 
The data set is accessible in subse- 
quent job steps by specifiying 
"§Ename." If it is required to refer 
to this name in a separate job (i.e., 
because of abnormal termination) the 
name is "&name. JOBNAME." 


DSNAME=éname (element) 
assigns a name to a member of a 
temporary PDS. The name is assigned 
in the same manner as the 
“DSNAME=&name. " If it is required to 
refer to this name ina separate job 


(i.e., because of abnormal 
termination) the name is 
"€name. JOBNAME." 


SPECIFYING THE DISPOSITION OF A DATA SET: 
The DISP parameter is specified for both 
previously created data sets and data _ sets 
created in this job step. 


, DELETE 
NEW) | , KEEP 
DISP=( JOLD\ | ,PASS ) 
MOD( | , CATLG 


SHR) | , UNCATLG 


is used for all data sets residing on 
magnetic tape or direct access volumes. 


The first subparameter indicates the 
Status of the data set at the beginning or 
during the job step. 


NEW 
indicates that the data set is created 
in this step. NEW is discussed in 
more detail in the section "Creating 
Data Sets." 

OLD 


indicates that the data set was creat- 
ed by a previous job or job step. 
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MOD 

indicates that the data set was creat- 
ed in a previous job or job step, but 
records can be added to the data set. 
Before the first I/O operation for the 
data set occurs, the data set is 
positioned after the last record. If 
MOD is specified and (1) the volume 
serial number is omitted, and (2) the 
data set is not cataloged or passed, 
then MOD is ignored and NEW assumed. 


SHR 

indicates that the data set resides on 
a direct-access volume and is used as 
input to a job whose operations do not 
prevent Simultaneous use of the data 
set as input to another job. This 
parameter has meaning only in a mul- 
tiprogramming environment for existing 
data sets. If it is omitted ina 
multiprogramming environment, the data 
set is considered unusable by any 
other concurrently operating job. If 
it is coded in other than a multiprog- 
ramming environment, the system 
assumes that the disposition of the 
data set is OLD. 


indicates the 
set at job step 


The second 
disposition of the 
termination. 


subparameter 
data 


DELETE 
causes the space occupied by the data 
set to be released and made available 
at the end of the current job step. 
If the data set was cataloged, it is 
removed from the catalog. 


KEEP 
insures that the data set is kept 
intact until a DELETE option is speci- 
fied in a subsequent job or job step. 
KEEP is used to retain uncataloged 
data sets for processing in future 
jobs. KEEP does not imply PASS. 


PASS 
indicates that the data set is 
referred to ina later job step. When 
a subsequent reference to the data set 
is made, its PASS status lapses unless 
another PASS is issued. The final 
disposition of the data set should be 
stated in the the last job step that 
uses the data set. When a data set is 
in PASS status, the volume(s) on which 
it is mounted is retained. If dis- 
mounting iS necessary, the control 
program issues a message to mount the 
volume(s) when needed. PASS is used 
to pass data sets among job steps in 
the same job. 7 


If a data set on an unlabeled tape is 
being passed, the volume serial number 
must be specified in the VOLUME=SER= 


parameter of the DD statement that 


"passed" the data set. 
Note: The 
library specified in a JOBLIB DD 
Statement always remains in effect for 
the duration of a job. 


CATLG 
causes the creation of a catalog entry 
that points to the data set. The data 
set can then be referred to in subse- 
quent jobs or job steps by name (CATLG 
implies KEEP). 


UNCATLG 
causes references to the data set to 
be removed from the catalog at the end 
of the job step. 


If the second subparameter is not speci- 
fied, no action is taken to alter the 
Status of the data set. If the data set 
was created in this job, it is deleted at 
the end of the current job step. If the 
data set existed prior to this job, it 
remains in existence at the end of the job. 


PASS status of the private 


DELIMITER STATEMENT 


The delimiter statement (see Figure 12) 
is used to separate data from subsequent 
control statements in the input stream, and 
is placed after each data set in the input 


stream. It cannot be placed in a catalog 
procedure. 

co De ee ee 1 
|Name |Operation| Operand | 
}----- }---------} ------------- == ------- { 
[ye | | 
beets 5 See eee ee fone ren Nea gen Ey wae EN nes en ee ee se Aare J 


Figure 12. Delimiter Statement 


The delimiter statement contains a slash 
in column 1, an asterisk in column 2, anda 
blank in column 3. The remainder of the 
card may contain comments. 
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FORTRAN JOB PROCESSING 


A FORTRAN source module may be processed 
starting with compilation and ending with 
execution. In this case three steps are 
required: compile the source module to 
obtain an object module, link edit the 
object module to obtain a load module, and 
execute the load module. Job control 
statements are required for each of these 
steps to: indicate the program or procedure 
to be executed, to specify options for the 
compiler and linkage editor, to specify 
conditions for termination of processing, 
and to define the data sets used during 
processing. Because writing these job con- 
trol statements can be time-consuming work 
for the programmer, IBM supples four cata- 
loged procedures to aid in the processing 
Of FORTRAN modules. The use of cataloged 
procedures minimizes the number of job 
control statements that must be supplied by 
the programmer. 


USING CATALOGED PROCEDURES 


When a programmer uses cataloged proce~ 
dures, he must supply the following job 
control statements: 


1. A JOB Statement. 


2. An EXEC statement that indicates the 
cataloged procedure to be executed. 


3. A procstep.SYSIN DD statement that 
specifies the location of the source 
module(s) or the object module(s) to 
the control program. 

Note: If the source module(s) and/or 
Object module(s) are placed in the input 
stream, a delimiter statement is required 
at the end of each data set. 


In addition, a GO.SYSIN DD * statement 


can be used to define data in the input 
stream for load module execution. (A de- 
limiter statement is also required at _ the 


end of this data.) 
The job control statements needed to 
invoke the procedures, and deck structures 


used with the procedures are described in 
the following text. 


COMPILE 


The cataloged procedure for compilation 
is FORTGC. This cataloged procedure con- 
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Sists of the control statements shown in 
Figure 43 in "Cataloged Procedures." 


Figure 13 shows control statements that 
can be used to invoke FORTGC. The SYSIN 
data set containing the source module is 
defined as data in the input stream for the 
compiler. Note that a delimiter statement 
follows the FORTRAN source module. 


//jobname JOB 
4/7 EXEC FORTGC 
7/FORT.SYSIN DD * 


Figure 13. Invoking the Cataloged Proce- 


dure FORTGC 


Single Compile: A Sample deck structure to 
compile a single source module is shown in 
Figure 14. 


//JOBSC JOB 00, FORTRANPROG, MSGLEVEL=1 
//EXECC EXEC PROC=FORTGC 
//FORT.~SYSIN DD * 


are Pee ne an eee a se eer 1 
{ FORTRAN Source Module | 
a a ee ee ee J 
/* 

Figure 14. Compiling a Single Source 


Module 


Batched Compile: A sample deck structure 
to batch compile is shown in Figure 15. 


//JOBBC JOB 00,FORTRANPROG, MSGLEVEL=1 
//EXECC EXEC PROC=FORTGC | 
//FORT.SYSIN DD * 


CSTs ee et ee ee 1 
{ First FORTRAN Source Module | 
Nc ta ce eee eae J 
ee ga Se Pe ee ee a 1 
| Last FORTRAN Source Module | 
Pa i a a a he J 
/* 

Figure 15. Compiling Several Source 

Modules 


When several source modules are entered 
in the SYSIN data set for one job step, the 


compiler recognizes the FORTRAN END state- 
ment. If the next card is a delimiter 
statement, the control program is called at 
the end of the compilation. If the next 


card is a FORTRAN statement, the FORTRAN 
compiler remains as _ the controlling pro- 
gram. 


COMPILE AND LINK EDIT 


The cataloged procedure to compile FOR- 
TRAN source modules and link edit the 
resulting object modules is FORTGCL. This 
cataloged procedure consists of the control 
Statements shown in Figure 44 in "Cataloged 
Procedures." 


Figure 16 shows control statements that 
can be used to invoke FORTGCL. 


//jobname JOB 
// EXEC FORTGCL 
//¥FORT.SYSIN DD * 


Ce eee 1 
| FORTRAN Source Module | 
Dc ee J 
/* 

Figure 16. Invoking the Cataloged Proce- 


Gure FORTGCL 


LINK EDIT AND EXECUTE 


The cataloged procedure to link edit 
FORTRAN object modules and execute the 
resulting load module is FORTGLG. This 


cataloged procedure consists of the control 
statements shown in Figure 45 in “Cataloged 
Procedures." 


Figure 17 shows control statements that 
can be used to invoke FORTGLG. 
_//jobname JOB 
// EXEC FORTGLG 
//LKED.SYSIN DD * 
(SSS nn ee ee 1 
| FORTRAN Object Module | 
Pa ah ee es J 
/* 
Figure 17. Invoking the Cataloged Proce- 
dure FORTGLG 
Figure 18 illustrates a sample deck 


structure to link edit and execute several 
object modules in the input stream as. one 
load module. 


//JOBBLG JOB 00,FORTPROG, MSGLEVEL=1 
//EXECLG EXEC PROC=FORTGLG 
//LKED.SYSIN DD * 


ye ee re eC eee ee 1 

| Last FORTRAN Object Module | 

a a a a ee en a J 

/* 

4/GO.SYSIN DD * 

aa aac a ea ak 1 

| Data | 

gear ea nad Seg eR ACER eRe RR eC ee J 

/* 

Figure 18. Link Edit and Execute Several 
Object Modules in the Input 
Stream 


The object module decks were created by 
the DECK compiler option. The linkage 
editor recognizes the end of one module and 
the beginning of another, and resolves 
references between them. 


Figure 19 illustrates a sample deck 
Structure that link edits and executes 
object modules that are members of the 
cataloged sequential data set, OBJMODS, as 
a Single load module. Reading of a data 
set in the input stream is accomplished by 
uSing data set reference number 5. 


//TJOBBLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECLG EXEC FORTGLG 

//ULKED.SYSIN DD DSNAME=OBJMODS, DISP=OLD 
//GO.SYSIN DD * 


Se ee ee es ee 1 
| Data | 
Gs a ee ee J 
/* 

Figure 19. Link Edit and Execute Several 


Object Modules in a Cataloged 


Data Set 


COMPILE, LINK EDIT, AND EXECUTE 


The fourth cataloged procedure, 
FORTGCLG, passes a source module through 
three procedure steps: compile, link edit, 
and execute. This cataloged procedure con- 
Sists of the-control statements shown in 
Figure 46 in “Cataloged Procedures." 

Figure 20 shows control statements that 
can be used to invoke FORTGCLG. 
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//jobname JOB 
// EXEC PROC=FORTGCLG 
/47FORT.SYSIN DD * 


Gre gg ee ee en ae 7 
| FORTRAN Source Module | 
Ee en Pe aE a OE on ea nD PoP a UR ES J 
/* 

Figure 20. Invoking the Cataloged Proce- 


dure FORTGCLG 


Single Compile, Link Edit, and Execute: 


Figure 21 shows a sample deck structure to 
compile, link edit, and execute a single 
source module. 

//JOBSCLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECC EXEC FORTGCLG 

4/FORT.SYSIN DD * 

ae ee ae 1 
| FORTRAN Source Module | 
aa ee J 
/* 

//GO.SYSIN DD * 

Ge tae a fa oe pn en ae tae ee et ee ee 1 
| Data | 
Ges aaa a J 
/* 

Figure 21. Single Compile, Link Edit, and 


Execute 


Batched Compile, Link Edit, and Execute: 
Figure 22 shows a sample deck structure to 


batch compile, link edit, and execute. The 
source modules are placed in the input 
stream along with a data set that is read 
uSing data set reference number 5. 


//JOBBCLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECCLG EXEC FORTGCLG 
//FORT.SYSIN DD * 


a ee ee Se ee 1 
| First FORTRAN Source Module | 
Bees Sa ee a ee ee J 
(SSS ee ee 1 
i Last FORTRAN Source Module | 
cc ee ee J 
/* 

//GKED.SYSIN DD * 

ee rc a es pe ee 1 
| Object Modules | 
Gee eee ree ee eee a oe ee eee eee ee J 
/* 

//GO.SYSIN DD * 

Spee permet a ate ee a ea er a eee ee ee 1 
l Data | 
Oe ee eee eae ee eee eee ee eee J 
/* 

Figure 22. Batched Compile, Link Edit, and 


Execute 
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- data sets 


COMPILER PROCESSING 


Statements (ddnames) 
I/O statements in the compiler with 
used by the compiler. These 
ddnames must be used for the compiler. 
When the system is generated, names for I/O 
devices classes are also established and 
must be used by the programmer. 


The names for DD 
relate 


Compiler Name 


al 


The program name for the compiler is 
IEYFORT. If the compiler is to be executed 
without using the supplied cataloged proce- 
dures ina job step, an EXEC statement of 
the form 


// EXEC PGM=IEYFORT 


must be used. (For more detailed informa- 
tion on procedures and options in calling 
IEYFORT, refer to Appendix A, "Invoking the 
FORTRAN Compiler."™) 


Compiler ddnames 


The compiler can use four data sets. To 
establish communication between the compil- 
er and the programmer, each data set is 
asSigned a specific ddname. Each data set 
has a specific function and device require- 
ment. Table 2 lists the ddnames, func- 
tions, and device requirements for the data 
sets. 


To compile a FORTRAN source module, two 
of these data sets are necessary; SYSIN and 


SYSPRINT, along with the direct-access 
volume(s) that contains the operating sys- 
tem. With these two data sets, only a 


listing is generated by the compiler. If 
an object module is to be punched and/or 
written on a direct-access or magnetic tape 
volume, a SYSPUNCH and/or SYSLIN DD state- 
ment must be supplied. 


Table 2. Compiler ddnames 
es (oS SSeSS Sn = aa a 1 
| | l DEVICE 
| ddname | FUNCTION | REQUIREMENTS | 
Eagan ear anys TSI ee ep eS Ur Sunn AONEY (ae a peer rv ops On 4 
| SYSIN |reading the |ecard reader | 
| | source {emagnetic tape | 
| | program | edirect-access | 
eee ny aa cane Ey Papen ree UR apy eS nL ree a Se aS ee | 
|SYSPRINT|writing the |eprinter | 
| | storage |emagnetic tape | 
| |map, | edirect-access | 
| Jlisting, and | | 
| |messages | | 
-------- }-------------}------------------| 
| SYSPUNCH| punching j*card punch+ | 
| |jthe object |emagnetic tape | 
| {module deck |edirect-access | 
}~-------}-------------}------------------ { 
|SYSLIN |output data |e*direct-access | 
| jset for the |emagnetic tape | 
| jobject module|ecard punch+ | 
| Jused as input| | 
| [to the link- | | 
| jage editor | | 
en 4---_~--~----4L-_~_-~--~------~---~-]| 
j}*These must not be same card punch | 
| devices |. 
cP ON ae Pe nO Py a Pee eal eT J 


For the DD statement SYSIN or SYSPRINT, 
an intermediate storage device (direct- 
access or magnetic tape) may be specified 


instead of the card reader or printer. 


If an intermediate device is specified 
for SYSIN, the compiler assumes that the 
source module deck was written on inter- 
mediate storage by a previous job or job 
step. If an intermediate device is speci- 
fied for SYSPRINT, the map, listing, and 
error/warning messages are written on that 
device; a new job or job step can print the 
contents of the data set. When the SYS- 
PRINT data set is written on an intermedi- 
ate storage device, carriage control char- 
acters are placed in the records. 


Compiler Device Classes 


Names for input/output device classes 
used for compilation are also specified for 
the operating system when the system is 
generated. The class names, functions, and 
types of devices are shown in Table 3. 


The data sets used by the compiler must 
be assigned to the device classes listed in 
Table 4. 


Table 3. Device Class Names 

a a ea Se a at ei 2 ‘ 
ICLASS NAME |cLass FUNCTIONS | DEVICE TYPE | 
}------------ }-=------------- }------------| 
| SYSSQ Jwriting, | e«magnetic | 
| | reading, | tape | 
| | backspacing | edirect- | 
| | (Sequential) | access | 
~-----------}--------------- }------------4 
| SYSDA lwriting, | edirect- | 
| | reading, | access | 
} | backspacing, | | 
| j updating | | 
| |records in | | 
| jplace (direct) | | 
~----------- }---------------}------------4 
| SYSCP {punching cards |*card punch | 
}------------}--------------- }------------ 
JA |SYSOUT output |e*printer | 
| | | emagnetic | 
| | | tape 
}------------ +~-------------- +------------ 
|B | SYSOUT card |ecard punch | 
| | image Output | emagnetic | 
| | | tape 

bees eee 5 eee etree en ne ee Be Spal ee ee J 
Table 4. Correspondence Between Compiler 

ddnames and Device Classes 

SE Se Ee ee ee mn ee See oP a a 1 
|ddname | Possible Device Classes | 
}-------- }-------------------------------- 
| SYSIN {SYSSQ, or the input stream de- 


| 
| [vice (specified by DD * or DD | 
| |DATA), or a device specified | 
] Jas a card reader | 


=S=--se= Ress sea ae a | 
| SYSPRINT|A, SYSSQ l 
Reese 1 SNC a cc 
| SYSPUNCH| B, SYSCP | 
<------- CS ag NN 
|SYSLIN © |S¥SSQ, SYSDA l 
Celie eae a ea a as eae a ee ere ee d 


Compiler Options 


Options may be passed to the compiler 
through the PARM parameter in the EXEC 
statement (see Figure 23). The following 


information may be specified: 


1. Whether a listing of an object module 
is printed. 


2. Name assigned to the program. 


3. The number of lines per page for the 
source listing. 


4. Whether the source module is coded in 
Binary Coded Decimal (BCD) or Extended 
Binary Coded Decimal Interchange Code 
(EBCDIC). 
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ee a Se 1 
ee ‘\LIST «BCD » SOURCE | 
| (PARM.procstep) = NOLIST\ ({,NAME xxxxxx] [, LINECNT=xx] 7 EBCDIC » NOSOURCE | 
l | | | | 
| DECK MAP » LOAD 7ID ‘1, 2,3 l 
| » NODECK « NOMAP ~NOLOAD| . « NOID | 

aan nnn nan nn nn nn nn nn nnn nnn nnn nnn nnn nnn nnn { 
J*If the information specified contains blanks, parentheses, or equal signs, it must be | 
| delimited by apostrophes; otherwise, parentheses may be used. | 
{2If only one option is specified and it does not contain any blanks, parentheses or | 
| equal signs, the delimiting. parentheses or apostrophes may be omitted. | 
{2The maximum number of characters allowed between the delimiting apostrophes or paren-| 
| theses is 40. The PARM parameter cannot occupy more than one card. | 
Dc a ia TS ea a ra ae a en J 
®Figure 23. Compiler Options 

5. Whether a list of the source state- piler. The specified number, XX, may be 

ments, with their associated internal anywhere in the range from 1to 99. If 

statement numbers, is printed. LINECNT is not specified, the number of 


6. Whether an object module is punched. 


7. Whether a storage map of variable 
names used in the source module is 
printed. 


8. Whether the compiler writes the object 
module on external storage for input 
to the linkage editor. 


Options specified in the PARM parameter 
may be in any order. 


LIST or NOLIST: The LIST option indicates 
that the object module listing is written 
on the data set specified by the SYSPRINT 
DD card. (The statements in the object 
module listing are in a pseudo assembly 
language format.) The NOLIST option indi- 
cates that no object module listing is 
written. A description of the object 
module listing is given in the section 
“System Output." 


Name=xXxxxxx: The NAME option specifies the 
name (xxxxxx) assigned to a module (main 
program only) by the programmer. If NAME 
is not specified or the main program is not 
the first module in a compilation, the 
compiler assumes the name MAIN for the main 
program. The name of a subprogram is 
always specified in the SUBROUTINE or FUNC- 
TION statement. 


The name appears in the source listing, 
Map, and object module listing. (See 
"Multiple Compilation Within a Job Step" in 
this section for additional considerations 
concerning the NAME option.) 

LINECNT=xx: The LINECNT option specifies 
the maximum number (xx) of lines per page 
that will be written on the data set 
specified by the SYSPRINT DD statement when 
a source listing is generated by the com- 
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SOURCE _oOr _NOSOURCE: 


lines will be obtained from the system (the 
default number may be changed by the 
installation). 


BCD or _EBCDIC: The BCD option indicates 
that the source module is written in Binary 
Coded Decimal; EBCDIC indicates Extended 
Binary Coded Decimal Interchange Code. 
Intermixing of BCD and EBCDIC in the source 
module is not allowed. 


Note: If the EBCDIC option is selected, 
statement numbers passed as arguments must 
be coded as 


én 
However, if the BCD option is selected, 
Statement numbers passed as arguments must 
be coded as 


$n 


and the $ must not be used as an alphabetic 
character in the source module. (n rep- 
resents the statement number. ) 


The SOURCE option 


Specifies that the source listing is writ- 
ten on the data set specified by the 
SYSPRINT DD statement. The NOSOURCE option 
indicates that the source listing is not 
written. A description of the source list- 
ing is given in the section "System 
Output." 

DECK or NODECK: The DECK option specifies 


that an object module card deck is punched 
as specified by the SYSPUNCH DD statement. 
The object module deck can be used as input 
to the linkage editor in a subsequent job. 
NODECK specifies that the object module 
deck is not punched. A description of the 
deck is given in the section "System Out- 
put." 


MAP or NOMAP: The MAP option specifies 
that a table of names, which appear in the 
object module, is written on the data set 
specified by the SYSPRINT DD statement. 
The type and location of each name is 
listed. The NOMAP option specifies that 
the table of names is not written. A 
description of the map is given in the 
section “System Output." 


LOAD _or NOLOAD: The LOAD option indicates 
that the object module is written on the 


data set specified by the SYSLIN DD state- 
ment. This option must be used if the 
cataloged procedure to compile and link 


edit, or to compile, link edit, and execute 
is used; i.e., the object module is used as 


input to the linkage editor in the current 
job. 

The NOLOAD option indicates that the 
object module is not written on external 


storage. This option can only be used if 
the cataloged procedure to compile is used. 


ID or NOID: The ID option specifies that 
internal statement numbers (ISN) are to be 
generated for statements that call subrou- 
tine or contain external function referen- 
ces. Calls to IBCOM are not affected. An 
additional four bytes are required for each 
linkage. 


The ISN is used by the traceback in the 
event of an error in the called subprogram. 
See the discussion on "Load Module Output" 
in the section on "System Output." 


Note: The compiler default options shown 
in this publication are standard IBM 
defaults; however, at system generation, an 
installation can choose its own set of 
default options. 


Multiple Compilation Within a Job Step 


Several compilations may be performed 
within one job step. The compiler recog- 
nizes the FORTRAN END statement in a source 
deck, compiles the program, and determines 


if another source module follows the END 
statement. If there iS another source 
module, another compilation is initiated 


(see Figure 24). 


EXEC statement may be used to 
initiate a job step; therefore, compiler 
options can be stated only once for all 
compilations in a job step. 


Only one 


(wooo rn = 
| 77JOBRA JOB , "FORTRAN PROG‘ 


|//STEP1 EXEC FORTGC 
| //FORT.SYSIN DD * 
1 READ (8,10)A,B,C 


END 
SUBROUTINE CALC 


ce ees OO a ee eee ee ee 
8 


Figure 24. Multiple Compilation Within a 
Job Step 


The first main program ina multiple 
compilation is given the name specified in 
the NAME option (only if this program is 
not preceded by a SUBROUTINE or FUNCTION 
Subprogram); all subsequent main programs 
are given the name MAIN. However, if the 
NAME option is not specified, only those 
main programs that are physically first in 
a multiple compilation are given the name 
MAIN. For example, in the multiple compi- 
lation, 


//MULCOM JOB 
// EXEC FORTGC, PARM. FORT=" NAME=IOR'* 


//FORT.SYSIN DD * 
READ (1,10) ALP, BETA 


END 
SUBROUTINE INVERT(A, B) 


END 
READ(5)P,Q,R 


END 
/* 


the first main program is given the name 
IOR; the third program is given the name 
MAIN. The second program is assigned the 
name INVERT. However, had the order of the 
first two programs been reversed, the name 
IOR would not have been applied to any of 
the programs illustrated. 


When a multiple compilation is per- 
formed, the SYSLIN data Set contains all 
the object modules because only one SYSLIN 
DD statement is supplied for compiler out- 
put. If tape or direct-access output is 
specified for the compiler, the object 
modules are written sequentially on the 
volume. 
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1 
| Object Module 1 i Object Module 2 | ... 


LINKAGE EDITOR PROCESSING 


The linkage editor processes FORTRAN 
object modules, resolves any references to 
subprograms, and constructs a load module. 
Communication with the linkage editor is 
established through a programmer supplied 
EXEC statement and DD statements’) that 
define all required data _ sets. The user 
also has the option of supplying linkage 
editor control statements. 


Linkage Editor Name 


Three linkage editor programs are avai- 
lable with the operating system. The pro- 
gram names for the three linkage editors 
and the minimum storage in which they are 
designed to operate are: 


IEWLE150 15,360 bytes 
IEWLE180 18,432 bytes 
IEWLE440 45,056 bytes 


Object modules processed by the linkage 
editor cannot exceed 512K bytes, because 
this is the maximum that can be processed 
by program FETCH. 


All facilities described for the linkage 
editor in this publication are available 
with all three linkage editors, except that 
blocking the primary input and primary 
output iS available only with the higher 
level linkage editor, IEWLE44O. 

For simpler programming, the linkage 
editors have been assigned the alias pro- 
gram name IEWL. If the programmer speci- 
fies the parameter 


PGM=IEWL 
in the EXEC statement, the highest level 
linkage editor provided in the 


installation's operating system is execut- 
ed. If he wants to execute a specific 
linkage editor, he must specify the specif- 
ic program name of that linkage editor. 


Linkage Editor Input and Output 


There are two 
linkage editor: 


types of input to the 
primary and secondary. 
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Primary input is a sequential data set 
that contains object modules and linkage 
editor control statements. Any external 
references among object modules in the 
primary input are resolved by the linkage 
editor as the primary input iS processed. 
Furthermore, the primary input can contain 
references to the secondary input. These 
references are linkage editor control 
statements and/or FORTRAN external referen- 
ces in the object modules. 


Secondary input resolves any references 
and is separated into two types: automatic 
call library and additional input specified 


by the programmer. The automatic call 
library should always be the FORTRAN 


library (SYS1.FORTLIB), 
FORTRAN library subprograms. Through the 
use of DD statements, the automatic call 
library can be concatenated with other 
partitioned data _ sets. Three types of 


additional input may be specified by the 
programmer: 


which contains the 


e An object module used as the main 
program in the load module being con- 
Structed. This object module, which 


can be accompanied by linkage editor 
control statements, is either a member 

_.Of a PDS or is a sequential data set. 
The first record in the primary input 
data set must be a linkage editor 
INCLUDE control statement that tells 
the linkage editor to insert the main 
program. 


e An object module or a load module used 
to resolve external references made in 
another module. An object module, 
which can be accompanied by linkage 
editor control statements, is a sequen- 
tial data set or is a member of a PDS. 
A load module, which is a member of a 
PDS, cannot be accompanied by linkage 
editor control statements. An INCLUDE 
statement that defines the data set 
must be given. 


e A load module used to resolve external 
references made in another module. The 
load module or object module, which can 
be accompanied by linkage editor con- 
trol statements, is a member of PDS. A 
linkage editor LIBRARY control state- 
ment that defines the data set to the 
linkage editor must be given. 


In addition, the secondary input can con- 
tain external references and linkage editor 
control statements. The automatic call 
library and any of the three types of 
additional input may be used to resolve 
references in the secondary input. 


The load module created by the linkage 
editor is always placed ina PDS. Error 
messages and optional diagnostic messages 


Table 5. Linkage Editor ddnames 
pares Naa ag ee er ae ae eee eG ee een ee Too ee 1 
| ddname | FUNCTION |] DEVICE REQUIREMENTS | 
-------------- }------------------------------------------}----------------------------- 
| SYSLIN | Primary input data, normally the output |edirect-access | 
| | of the compiler Jemagnetic tape | 
| | jecard reader | 
}-------------- }------------------------------------------ }----~------------------------ { 
| SYSLIB | automatic call library (SYS1.FORTLIB) | edirect-access | 
-------------- }------------------------------------------ }}-=-- ------------------------- 
| SYSUT1 | work data set |] edirect-access | 
~------------- }----------------------------------------- =f ---- == === - === J 
| SYSPRINT | diagnostic messages | *¢printer | 
| | Jemagnetic tape | 
| | | edirect-access | | 
}-------------- }----------------------------—------------ }----------------------------- { 
| SYSLMOD | output data set for the load module ] edirect-access | 
~------------- }--------~--------- == -- === === === f= === | 
Juser-specified| additional libraries and object modules |edirect-access | 
| | |emagnetic tape | 
oS eee ao ee ee ee Eien ea ae Ae eee cae ee ae RIS Ee eee ee J 
are written on an intermediate storage All data sets specified by SYSLIB or 
device or a printer. In addition, a work SYSLMOD must be partitioned data sets. 
data set is required by the linkage editor (Additional inputs are partitioned data 





to do its processing. Figure 25 shows’ the 
I/O flow in linkage editor processing. 
SYSUT 1 
SYSLIB Work SYSLMOD 
Data Set 
Automatic ogame Output 
Call Module 
Library Library 
SYSLIN 
Primary Linkage 
Input Editor 


Diagnostic 


Additional ’ Data Set 


Libraries 





SYSPRINT 


Figure 25. Linkage Editor Input and Output 


Linkage Editor ddnames and Device Classes 


The programmer communicates data set 
information to the linkage editor through 
DD statements identified by specific 


ddnames (similar to the ddnames used by the 
compiler). The ddnames, functions, and 
requirements for data sets are shown in 
Table 5. 


sets or sequential data sets.) The ddname 
for the DD statement that identifies any 
additional libraries is written in INCLUDE 
and LIBRARY statements and is not fixed by 
the linkage editor. 


The device classes used by the compiler 
(see Table 3) must also be used with the 
linkage editor. The data sets used by 
linkage editor may be assigned to the 
device classes listed in Table 6. 
Additional Input 

The INCLUDE and LIBRARY statements are 


used to specify additional secondary input 
to the linkage editor. Modules neither 
Specified by INCLUDE or LIBRARY statements 
nor contained in the primary input are 
retrieved from the automatic call library. 
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Table 6. Correspondence Between Linkage 
Editor ddnames and Possible 
Device Classes 

a ae re eee ee eae ee eee 7 
| ddname ]Possible Device Classes | 
Naa ee 4 

|SYSLIN |SYSSQ,SYSDA, or the input | 
| | stream device (specified | 
| jby DD * or DD DATA) or | 
| |device specified as the | 
| jcard reader | 
a ae et | 

| SYSLIB |SYSDA | 
create ee ete en ee ee, 4 

| SYSUT1 | SYSDA | 
Na et es 

| SYSLMOD (SYSDA l 
i ee ee | 

| SYSPRINT |A,SYSSQ | 
}-------------- }~--~~----+-~-------------- { 
asses Set tala ieee taeda SYSSQ | 
Geter hs a ee J 


INCLUDE Statement: 


a casa a a - 
|Operation}Operand | 
anes ate a eee ete ec | 
| INCLUDE |ddname [ (member-name | 
| | [,member-name]...)] | 
| | {,ddnamef (member-name | 
| | ,member-name]...)J]]... | 
tet aa ere J 


The INCLUDE statement is used to include 
either members of additional libraries 
(PDS) or a sequential data set. The 
"ddname" specifies a DD statement that 
defines either a PDS containing object 
modules and control statements or just load 
modules, or defines a sequential data set 
containing object modules and control 
statements. The “member name" is the name 
of a member of a PDS and is not used when a 
sequential data set is specified. 


The linkage editor 
module or load module in 
module when the INCLUDE 
encountered. 


LIBRARY Statement: 


inserts the object 
the output load 
statement is 


! 
[LIBRARY |ddname (member-name | 
{,member-name]...) | 

(, ddname (member-name | 
(,member-name]...)]... | 
J 


The LIBRARY statement is used to include 
members of additional libraries. The 
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must be the name of a DD statement 
that specifies a PDS that contains either 
object modules and linkage editor control 
statements, or just load modules. The 
"member name" is an external reference that 
is unresolved after primary input process- 
ing is complete. 


"“ddname" 


The LIBRARY statement differs from the 
INCLUDE statement in that external referen- 
ces specified in the LIBRARY statement are 
not resolved until all other processing, 
other than those references reserved for 
the automatic call library, are completed 
by the linkage editor. (INCLUDE statements 
resolve external references when the 
INCLUDE statement is encountered. ) 


Example: Two subprograms, SUB1 and SUB2, 
and a main program, MAIN, are compiled by 
separate job steps. In addition to the 
FORTRAN library, a private library, MYLIB, 
is used to resolve external references to 
the symbols xX, Y, and Z. Each of the 
object modules is placed in a_ sequential 
data set by the compiler, and passed to the 
linkage editor job step. 


Shows the control statements 
(Note: Cataloged procedures 
are not used.) In this job, an additional 
library, MYLIB, is specified by the LIBRARY 
Statement and the ADDLIB DD statement. 
SUB1 and SUB2 are included in the load 
module by the INCLUDE statements and the DD 
statements DD1 and DD2. The linkage editor 
input stream, SYSLIN, is two concatenated 
data sets: the first data set is the 
sequential data set &GOFILE which contains 
the main program; the second data set is 
the two INCLUDE statements and the LIBRARY 
statement. After linkage editor execution, 
the load module is placed in the PDS 
PROGLIB and given the name CALC. 


Figure 26 
for this job. 


Linkage Editor Priority 


If modules with the same name appear in 
the input to the linkage editor, only one 
of the modules is inserted in the output 
load module. The following priority for 
modules is established by the linkage edi- 
tor: 


1. Modules appearing in SYSLIN or modules 
identified by INCLUDE statements. 


2. Modules identified by the 
statement. 


LIBRARY 


3. Modules appearing in SYSLIB. 


For example, if a module named _ SIN 
appears both ina module identified in a 
LIBRARY statement and in the automatic call 


i ml as me Se SD OD ED ED ES GE ee ee ED cee Ge ee ee GE ee OE SE EE ee a GE ce ee Oe a ee Pe ee ee aE Qe 9D Ee OE ee ae ce ate GE GD ED qc ee ae EP cet a oe OS oe ee 
| 


" 
//JTOBX JOB | 
|] //STEP EXEC PGM=IEYFORT, PARM= ' NAME=MAIN, LOAD‘ | 
| : | 
| | | 
| //SYSLIN DD DSNAME=&GOFILE, DISP=(, PASS), UNIT=SYSSQ | 
| //SYSIN DD + | 
| Source module for MAIN | 
[7+ 
| //STEP2 EXEC PGM=IEYFORT, PARM=* NAME=SUB1, LOAD‘ | 
| : | 
| | 
|} //SYSLIN DD DSNAME=&SUBPROG1, DISP=(, PASS) , UNIT=SYSSQ | 
| //SYSIN DD * 
| source module for SUB1 | 
| /* | 
| //STEP3 EXEC PGM=IEYFORT, PARM=* NAME=SUB2, LOAD* | 
. | 
) | 
| 77/SYSLIN DD DSNAME=&SUBPROG2, DISP=(, PASS) , UNIT=SYSSQ | 
| //SYSIN DD * 
| Source module for SUB2 | 
| /* | 
| //STEPY EXEC PGM=IEWL | 
| : | 
| | 
|] 7/SYSLIB DD DSNAME=SYS1.FORTLIB, DISP=OLD | 
|7/SYSLMOD DD DSNAME=PROGLIB (CALC) , UNIT=SYSDA | 
| 7/ADDLIB DD DSNAME=MYLIB, DISP=OLD | 
| 7/DD1 DD DSNAME=* . STEP2.SYSLIN, DISP=OLD | 
| 7/7DD2 DD DSNAME=* .STEP3 .SYSLIN, DISP=OLD l 
| //SYSLIN DD DSNAME=*.STEP1.SYSLIN, DISP=OLD | 
|\/7 DD * | 
INCLUDE DD1 
| INCLUDE DD2 l 
LIBRARY ADDLIB(X,Y,Z) 
| “+ | 
aN SE Se cc a sa a hm ee el J 
Figure 26. Linkage Editor Example 
library, only the module identified in the r--------- [ron nnn nr nnn nn --- 1 
LIBRARY statement is inserted in the output | Operation |Operand | 
load modules, 900 fp ne ee em 4---------—-------~—---—--------+--- 4 
| NAME jmember-name[(R) ] | 
If modules with the same name appear in L_——--——-~—— 1 ——————-—-——--—-—-—-—--— —------—--~---- 4 
a Single data set, only the module encoun- 
tered first is inserted in the output load The NAME statement is placed after the 


module. 


Multiple Link Editing Within a Step 


Just as the compiler can perform several 
compilations within a procedure step or job 
step (batched compilation), the linkage 
editor can produce several load modules 
within a single procedure step or job step. 
Another linkage editor control statement, 
the NAME statement, is used to delimit the 
input for one load module from the input 
for another load module. 


last object module or linkage editor con- 
trol statement used as input to a load 
module. Any modules or control statements 
following a NAME statement are assumed to 
be part of the next load module being 
constructed. A NAME statement can be 
placed only in the primary input: any NAME 
Statements in the secondary input are 
ignored. 


All of the resulting load modules from a 
batched linkage editor execution are placed 
in the library (PDS) specified in the 
SYSLMOD DD statement. The member name for 
each of the resulting load modules is 
specified as “member name" in the NAME 
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statement. For example, if the primary 
input for one of the load modules is 
followed by a NAME statement containing the 
member name XALPHA, and the SYSLMOD DD 
statement for the linkage editor step spec- 
ifies the PDS MYLIB, the resulting load 
module iS assigned the member name XALPHA 


and is placed in the PDS MYLIB. The 
SYSLMOD DD statement should not contain a 
member name. However, if the SYSLMOD 
statement contains a member name, that 


member name must be identical to the member 
name specified in the first NAME statement 
appearing in the primary input. 


The NAME statement can be used to speci- 
fy that a load module currently residing in 
a PDS is to be replaced by the load module 
constructed from the input immediately 
preceding the NAME statement. Replacement 
is specified by coding (R) following the 
member name in the NAME statement. 


When several load modules are created in 
a Single step (multiple link editing), the 
options specified in the EXEC statement for 
that step apply to each load module created 
in that step. 


resides on a 
A load module 


An object module 
set PROGX. 


Example: 
sequential data 


is to be constructed from this module, 
using the FORTRAN library anda private 
library MYLIB to resolve external referen- 


ces within the module. Another object 
module resides on a sequential data set 
PROGY, and a load module is to be con- 
structed from this object module using the 
same library to resolve external referen- 
ces. Both load modules are to be placed in 
the library PROGLIB. The first module is 
to be assigned the member name FUNTST; the 
second module is assigned the member name 
SUBTST. : 


The following text shows the job control 
Statements and the position of INCLUDE, 
LIBRARY, and NAME linkage editor statements 
necessary to perform the job. 


//JOB2 JOB 108,‘'J.JONES' 

//STEP EXEC PGM=IEWL 

//SYSLIB DD DSNAME=SYS1.FORTLIB, DISP=OLD 
¢/SYSLMOD DD DSNAME=PROGLIB, DISP=OLD 


4/DD1 DD DSNAME=PROGX, DISP=OLD 
//DD2 DD DSNAME=PROGY, DISP=OLD 
//ADDLIB DD DSNAME=MYLIB 
//SYSLIN DD * 

INCLUDE DD1 
| LIBRARY ADDLIB(X, 2) 

NAME FUNTST 

INCLUDE DD2 

LIBRARY ADDLIB(CY, Z) 

NAME SUBTST 
/* 
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most 


The JOB statement JOB2 defines the job, 
and the EXEC statement STEP instructs the 
Operating system to execute the program 
ITEWL. The DD statement SYSLIB tells the 
linkage editor that the FORTRAN library is 
the automatic call library. The SYSLMOD DD 
Statement tells the linkage editor that 
both modules are written in the PDS 
PROGLIB. 


The first INCLUDE statement and the DD 
Statement DD1 tell the linkage editor that 
the first load module is to contain the 
object module that resides on the sequen- 
tial data set PROGX. The first LIBRARY 
Statement tells linkage editor that the 
references to X and Z in this module are to 
be resolved by the 1library MYLIB. The 
first NAME statement tells the linkage 
editor that the resulting module is 
assigned the member name FUNTST. The con- 
trol statements are similar for the load 
module with the member name SUBTST. 


Other Linkage Editor Control Statements 


In addition to the LIBRARY and INCLUDE 


Statements, other control statements are 
available for use with the linkage editor. 
These statements enable the user to: speci- 
fy different names for load modules 
(ALIAS), replace modules within a load 
module (REPLACE), change program names 
(CHANGE), and name entry points (ENTRY). 


In addition, two statements, OVERLAY and 
INSERT, enable the programmer to overlay. 
load modules. For a detailed description 
of these control statements, see the Link- 
age Editor publication. 


Options for Linkage Editor Processing 


The linkage editor options are specified 
in an EXEC statement. The options that are 
applicable to the FORTRAN programmer 
are: , | 
PARM | | MAP 
PARM.procstep| =(j XREF |(, LET] [, NCAL] 
| [, LIST) 


Other options can also be specified for 
the linkage editor. For a detailed de- 
scription of all linkgae editor ORERORSs 


see the Linkage Editor publication. 


MAP or XREF: The MAP option informs the 


linkage editor to produce a map of the load 


module; this 
location 


map indicates the relative 
and length of main programs and 


subprograms. If XREF is specified, a map 
of the load module is produced and a 
cross-reference list indicating all exter- 


nal references in each main program and 
subprogram is generated. The map and/or 
cross-reference list are written in the 


data set specified by the SYSPRINT DD 
Statement. If neither option is specified, 
no map or cross-reference listing is gener- 
ated. Descriptions of the map and cross- 
reference listing are given in the section 
"System Output." 


LET: The LET option informs the linkage 
editor to mark the load module executable 
even though error conditions, which could 
cause execution to fail, have been 
detected. 


NCAL: The NCAL option informs the linkage 
editor that the libraries specified either 
in the SYSLIB DD statement or in LIBRARY 
Statements are not used to resolve external 
references. (The SYSLIB DD statement need 
not be specified.) 
libraries are not inserted 
module; however, the load module is 
executable. 


in the load 
marked 


LIST: The LIST option indicates that all 
linkage editor control statements are list- 
ed in card-image format in the data set 
specified by the SYSPRINT DD statement. 


LOAD MODULE EXECUTION 


eS CD CR ES Re 


The ddnames used in executing load 
modules must meet the format specified by 
IBM. When the system is generated, device 
names are assigned by the operating system 
and the installation; the programmer choos- 
es devices by specifying either the instal- 
lation or operating system names. 


Program Name 


When "“PGM=program name" is used to indi- 
cate the execution of a load module, the 
module must be in either the system library 


(SYS1.LINKLIB) or a private library. When 
the module is in a private library, a 
JOBLIB DD statement must be supplied to 


indicate the name of the private library. 
For example, assume that the load modules 
CALC and ALGBRA in the library MATH and the 


The subprograms in the 


load module MATRIX in the library MATRICES 
are executed in the following job: 


//JOBN JOB 00, FORTPROG 

//JOBLIB DD DSNAME=MATH, DISP= (OLD, PASS) 
// DD DSNAME=MATRICES, DISP=(OLD, PASS) 
//STEP1L EXEC PGM=CALC 


//STEP2 EXEC PGM=MATRIX 


//STEP3 EXEC PGM=ALGBRA 


The JOBLIB DD statement concatenates the 
private library MATH with the system 
library. The private library MATRICES is 
concatenated with the system library by 
concatenating the second DD statement with 
the JOBLIB DD statement. 


Execution ddnames 


In the source module, data set reference 
numbers are used to identify data _ sets. 
Data sets processed by a FORTRAN load 
module must be defined by DD statements. 
The correspondence between a data set ref- 
erence number and a DD statement is made by 
a ddname. 


The ddname format that must be used for 
load module execution is 


FTXXFyyy 


where: 
xx 1s the data set reference number 
yyy is a FORTRAN sequence number 


Data Set Reference Number (xx): When the 
system is generated, the upper limit for 
data set reference numbers specified by the 
installation is 99. This upper limit does 
not correspond to the number of 
input/output devices. 


If an installation specifies an upper 
limit of 99 for its data set reference 
numbers, the ddnames and data set reference 
numbers correspond as shown in Table 7. 
Note that 0 is not a valid data set 
reference number. 
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Table 7. Load Module ddnames 

CS ee ee ee oe 
| Data Set Reference Numbers | ddnames | 
p-~~~---~------~---~----------- }----------4 
| 1 | FTO1Fyyy | 
| 2 | FTO2Fyyy | 
| | | 
: | - 
| | | 
- | - | 
| | | 
: | : 
l 13 | FT13Fyyy | 
| | | 
: | . | 
| | (| 
: | : | 
] | | 
| : | ° | 
| 99 | FT99Fyyy | 
Ce eee ea ee Se y EReaSe ae eet J 


The FORTRAN 
sequence number is used to refer to Separ- 
ate data sets that are read or written 
using the same data set reference number. 
For the first data set, the sequence number 
is 001; for the second 002; etc. This 
sequence number is incremented when (1) an 
END FILE statement is executed and a subse- 
quent WRITE is issued with the same data 
set reference number or (2) the "“END=" exit 
is taken following a READ and a subsequent 
READ or WRITE is issued with the same data 
set reference number. 


A DD statement with the required ddname 
must be supplied every time the WRITE, END 
FILE, WRITE sequence occurs. If the FOR- 
TRAN Statements in the following example 
are executed, DD statements with the 
ddnames indicated by the arrows must be 
Supplied for the corresponding WRITE state- 
ments. 
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Statements ddname 


15 FORMAT (3F10.3,17) 
10 FORMAT (3F10.3) 
DO 20 I=1,J7 


20 WRITE (17, 10)A,B,C ee ee gee eee Pare ee el > FT17F001 


END FILE 17 
DO 30 I=1,N 


30 WRITE(17,15)X, Y, Z,K--~------- > FT17F002 
END FILE 17 
DO 40 I=1,M,2. 


40 WRITE(17,10)A,B,C-~~--—-~~—-~—--— > FT17F003 


END FILE 17 


If the preceding instructions are used 
to write a tape, the output tape is unla- 
beled and has the appearance shown in 
Figure 27. 


Reference Numbers for Data Sets Specified 
in DEFINE FILE Statements 


The characteristics of any data set to 
be used during a direct-access input/output 
Operation must be described by a DEFINE 
FILE statement. 


The data set reference number specified 
in any DEFINE FILE statement may refer to 
only one data _ set. In other words, the 
method described previously concerning ref- 
erences to separate data sets that are read 
Or written using the same data set ref- 
erence number is prohibited. For example, 
the statement 


DEFINE FILE 2(50,100,L,12) 


establishes a data set reference number of 
02. All subsequent input/output statements 
must refer to only one data set with the 
FORTRAN sequence number of FTO2F001. (For 
a more detailed explanation of the DEFINE 
FILE statement, refer to the FORTRAN IV 
Language publication.) 


c : 1 
| tapemark tapemark tapemark i 
| records records records | 
| a ee ee Oe ee fo MA | 
| {|A,B,C{A,B,C|...|A,B,C| |X,Y¥,Z,K| X,Y, 2Z,K] +. | Xe¥,Z,K| |A,B,C|]~..-|A,B,C] | ~~ [ 
l Rast i a a hs A ape ee ee ee ee ee ea ee ES | 
| Written using DD Written using DD Written using DD | 
| Statement FT17F001 statement FT17F002 statement FT17F003 | 
aca ac a a a a i i Sn J 
Figure 27. Tape Output for Several Data Sets Using Same Data Set Reference Number 


Retrieving Data Sets Written with Varying 
FORTRAN Sequence Numbers 


To retrieve the data sets shown in 
Figure 27, the data set sequence number in 
the LABEL parameter must be supplied in the 
DD statement. The LABEL parameter is de- 


scribed in detail in the section “Creating 
Data Sets." 

,NL 
LABEL= ( [data-set-sequence-number] 7SL)\) 








The "data set sequence number" indicates 
the position of the data set on a _sequen- 
tial volume. (This sequence number is 
cataloged.) For the first data set on the 
volume, the data set sequence number is 1; 
for the second, it is 2; etc. 


If one of the data sets shown in Figure 
27 is read in the same job step in which it 
is written, an END FILE statement must be 
issued after the last WRITE instruction. 
If the data set is to be read by the same 
data set reference number, DD statement 
FT17F004 is used to read the data set. The 
execution of a READ statement following an 
END FILE increments the FORTRAN sequence 
number by 1. For example, the following DD 
Statements are used to write the three data 
sets shown in Figure 27 and then read the 
second data set: 


//ET17F001 DD UNIT=TAPE, LABEL=(,NL) 


//FT1I7F002 DD UNIT=TAPE, LABEL=(2,NL), Xx 
i bi VOLUME=REF=*.FT17F001 
//FT17F003 DD UNIT=TAPE, LABEL=(3,NL), Xx 
1/ VOLUME=REF=*. FT17F001 
//¥FT1I7TFO004 DD VOLUME=REF=*.FT17F002 Xx 
// DISP=OLD, LABEL=(2, NL) X 
// DSNAME=*.FT17F002, x 
// UNIT=TAPE 


The VOLUME parameter indicates that the 
data set resides on the same volume as the 
data set defined by DD statement FT1i7F001. 
DD statement FT17F004 refers to the data 
set defined by DD statement FT17F002. 


If the data set is read by a different 
data set reference number, for example, 
data set reference number 18; then, the DD 


Statement FT17F004 is replaced by the 
Statement: 

//FT18F001 DD VOLUME=REF=*.FT17F002, X 
// DISP=OLD, LABEL= (2, NL) 


If the data sets shown in Figure 27 are 
cataloged for the purpose of later reading 


them, and the following DD statements are 
used to write the data sets, 

//ETLTFOO01 DD DSNAME=N1, LABEL=(1,NL), Xx 
// DISP=(,CATLG) , UNIT=TAPE Xx 
// , VOLUME=SER=16 3K 

//EFTLTFOO02 DD DSNAME=N2, LABEL=(2,NL), Xx 
1// VOLUME=REF=*.FT17F001, . x 
1/ UNIT=TAPE, DISP=(, CATLG) 
//ET17F003 DD DSNAME=N3, LABEL=(3,NL), x 
// VOLUME=REF=*.FT17F002, X 
// UNIT=TAPE, DISP=(, CATLG) 


The information necessary to retrieve the 
data sets is the DSNAME, the LABEL, and the 
DISP parameters. For example, if data set 
reference number 10 is used to retrieve 


data set Ni, the following DD statement is 
required. 

//FT10F001 DD DSNAME=Ni,DISP=OLD, x 
A LABEL= (1, NL) 


If the data set is not cataloged and 
then retrieved ina later job, the VOLUME, 
UNIT, and LABEL information is needed to 
retrieve the data set. When the data set 
is created, the programmer must assign a 
specific volume to it. 


Assume the data sets shown in Figure 27 
were assigned the volume identified by the 
volume Serial number A1i111 when the data 
sets were created. If the second data set 
written on the volume is retrieved by data 
set reference number 10 in a later job, the 
following DD statement is needed. | 


//FT10OF001 DD VOLUME=SER=A11111,DISP=OLD, X 
7/ LABEL=(2,NL) , UNIT=SYSSQ 


END Exit: Data sets written using the same 
data set reference number. can be retrieved 
in the same job or job step by uSing a 
facility provided in the FORTRAN language - 
the "END="" exit in a READ statement. 
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After the last data set is written and the 
END FILE is executed, a REWIND is issued. 
A subsequent READ using the same data set 


reference number resets the FORTRAN 
sequence number to 001. When the last 
record of a data set has been read, an 


additional READ causes the END exit to be 
taken. On the next READ, the sequence 
number is incremented by 1. The data _ sets 
shown in Figure 27 can be read by using the 
following sequence of statements. 


Note: The DD statements used to create the 
data sets also suffice for retrieving the 
data sets. No additional DD statements are 
required. 
REWIND 17 
100 READ(17,10,END=200)A,B,C ~----> FT17F001 
GO TO 100 


200 READ(17,15, END=300)X,Y,Z,K-~-->FT17F002 


GO TO 200 


300 READ(17,10, END=350)A,B,C ----> FT17F003 


GO TO 300 


350. @ee@pee8s 


Concatenation: The data sets shown in 
Figure 27 can be concatenated and read as a 
Single data set. The information necessary 
(assume cataloged data sets) to retrieve 
the data sets is the DSNAME, LABEL, and 
DISP parameters. For example, if data set 
reference number 16 is used to retrieve the 
data sets, the following DD statements are 
required. 


//FT16F001 DD DSNAME=N1,DISP=OLD, X 
LABEL= (1, N) 

// DD DSNAME=N2, DISP=OLD, LABEL=(2, NL) 

// DD DSNAME=N3, DISP=OLD, LABEL= (3, NL) 


Note: Concatenation of data sets defined 
by direct-access statements is not allowed. 
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ERR=Parameter 


The ERR= parameter may be used to give 
control to the problem program if an uncor- 
rectable I/O error occurs on a magnetic 
tape or direct access device. ThisS param- 
eter is not effective for data sets on unit 
record devices. 


REWIND and BACKSPACE Statements 


The REWIND and BACKSPACE statements 
force execution of positioning operations 
by the control program. 


A REWIND statement instructs the control 
program to position the volume on the 
device so that the next record read or 
written is the first record transmitted for 


that data set reference number on that 
volume, irrespective of data set sequence 
numbers. 


The effect of a BACKSPACE statement 
depends upon the record format and the type 
of control used to read or write the record 
(FORMAT control or no FORMAT control). For 
specific information concerning BACKSPACE, 
see “Backspace Operations" in the section 
"Creating Data Sets." 


Note: REWIND, BACKSPACE or END FILE state- 
ments specified for data sets defined in 
direct-access statements are ignored. 


Error Message Data Set 


When the system is generated, the 
installation assigns a data set reference 
number so that execution error messages and 
information for traceback, DUMPS, and 
PDUMPs can be written on a data set. The 
programmer must define a data set, uSing a 
DD statement with the ddname for that data 
set reference number. This data set should 
be defined using the SYSOUT=A parameter. 


(The publication IBM System/360 Operating 


System, System Generation, explains the 
method of assigning the data set reference 


number. ) 


If this data set is not defined and an 
error condition is encountered during the 
execution of the job step, the job step is 
terminated and a condition code of 16 is 
issued. 


Execution Device Classes 


ee me deere cme vier 


For load module execution, the program- 
mer can use the same names assigned to 
device classes used by the compiler (shown 
in Table 3). However, additional names for 
specific devices and device classes can be 
assigned by the installation. The program- 
mer can choose which device to use for his 
data sets, and specify the name of the 
device or class of devices in the UNIT 
parameter of the DD statement. 


DCB Parameter 


The DCB parameter may be specified for 
data sets when a load module is executed. 
For information concerning the DCB paramet- 


er, see the section “Creating Data Sets." 


FORTRAN Job Processing 
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CREATING DATA SETS 


Data sets are created by specifying 
parameters in the DD statement or by using 
a data set utility program. This section 
discusses the use of the DD statement to 
create data sets. (The Utilities publica- 
tion discusses data set utility programs.) 
No consideration is given to optimizing I/0 
operations; this information is given in 
the section "Programming Considerations." 


To create data sets, the DSNAME, UNIT, 
VOLUME, SPACE, LABEL, DISP, SYSOUT, and DCB 
parameters are of special significance (see 
Figure 28). These parameters specify: 


DSNAME - name of the data set 

UNIT -~ class and number of devices used 
for the data set 

VOLUME - volume on which the data set 
resides 

LABEL - label specification 

DISP - the disposition of the data set 
after the completion of the job 
step 

SYSOUT - ultimate device for unit record 
data sets 

DCB ~ tape density, record format, 


record length 


Examples of DD statements used to create 
data sets are shown in Figure 29. 


USE OF DD STATEMENTS FOR DIRECT-ACCESS DATA 
SETS Se ieee a ire ee 


Data sets that are referred to in FOR- 
TRAN direct-access input/output statements 
must first be defined in the DEFINE FILE 
statement. However, the DD statement may 
be used in conjunction with the DEFINE FILE 
Statement for designating other charac- 
teristics of the data set. 


If the user chooses to exercise this 
option, caution must be taken in specifying 
the parameters in the DD statement (Figure 
28). With FORTRAN defined direct-access 
data sets, the DUMMY parameter may not be 
used because of a conflict in specifi- 
cations. The remaining parameters of the 
DD statement must conform to the specifi- 
cations in the DEFINE FILE statement. The 
DEN and TRICH subparameters of the DCB 
parameter apply only to data sets residing 
On magnetic tape volumes; consequently, 
their use with other FORTRAN defined 
direct-access data sets may also produce a 
conflict. 
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The following statements illustrate the 
possible conflicts that may arise between 
the DEFINE FILE and DD statements. 

DEFINE FILE 2(50,100,E, 12) 


//FTO2F001 DD DSNAME=BOOL, DISP=(NEW, CATLG) 1 


// LABEL=(,SL) , UNIT=SYSDA, 2 
// VOLUME= (PRIVATE, RETAIN), 3 
1/ SPACE=(100, (30,50),,CONTIG), 4 
“/ DCB=(DEN=1, RECFM=F, BLKSIZE=100) 


The SPACE parameter must be included for 
all direct-access data sets, but it must 
also conform to the DEFINE FILE statement; 
the record length in both statements must 
be the same. In the DCB parameter, the 
Subparameter DEN applies only to data _ sets 
residing on magnetic tape volumes. If the 
DUMMY parameter is specified in a DD state- 
ment for a direct-access data set, the 
conflict arises because the disposition of 
a direct-access data set is always checked 
and a dummy data set has no disposition. 


Note: The name field of the DD statement 
must contain FTxxF001; where xx is the data 
set reference number specified in the 
DEFINE FILE statement. | 


DATA SET NAME 


The DSNAME parameter specifies the name 
of the data set. Only four forms of the 
DSNAME parameter are used to create data 
sets. 

DSNAME=dsname 
DSNAME=dsname (element) 


Specify names for data sets that are 
created for permanent use. | 


Note: Members of a partitioned data set 
cannot be read aS input to a FORTRAN object 
program or created as output from a FORTRAN 
object program even though the member name 
has been specified in the DSNAME parameter 
of a DD statement. 


tides bebe ciel 

DSNAME=é&name (element) 
specify data sets that are temporarily 
created for the execution of a single 
job or job step. 


DUMMY Note: A dummy data set should only be 


DSNAME= 


is specified in the DD statement to read if the “END=" option is specified 
inhibit I/O operations specified for in the FORTRAN READ statement. If the 
the data set. A WRITE statement is option is not specified, a read causes 
recognized, but no data is transmit- an end of data set condition and 
ted. (When the programmer specifies termination of execution of the load 
DUMMY in a DD statement used to over- module. 


ride a cataloged procedure, all param- 
eters in the cataloged DD statement 
are overridden. ) 


dsname 

dsname (element) 
&name 
&name(element) 


DUMMY 
DDNAME=ddname 


UNIT=(name [. | nyPf 7 )2 


, S9ER=(volume-serial-number (, volume-serial-number | ae BS 
dsname 


VOLUME=( [PRIVATE ] [, RETAIN J], volume-sequence-number ){, volume-count] | , REF= ) *.ddname )4 


* .stepname.ddname 
* .stepname. procstep. ddname 


TRK MXIG 5 


SPACE=(4 CYL , (primary-quantity [, secondary-quantity ] [, directory-quantity]) [, RLSE] | , ALX [, ROUND ]§)7 


average-record-length CONTIG 


LABE L=([data-set-sequence-number ] ‘ ‘i oo 8 


yok , RETPD=xxxx 


SYSOUT=A 
SYSOUT=B 
SYSOUT=(X [, program-name I P form-no. | ) 


< 


DCB=( 


NEW )| , KEEP > 
pisP=( JOLD (| , PASS )/ 
0 

1 

2 


,DELETE 7” 


MOD (| ,CATLG 
SHR ) L ,UNCATLG 


C JElUtCAJ[, BLKSIZE=xxxx J 
E 1) 10] | ,RECEM=2 V[A]  LRECL=xxxcx. BLKSIZE=cxxx " 
/TRICH=4 7 ,BUFNO=} 9 FIC FBLA] ,LRECL =e, BLKSIZE=w00 ) 


ET , BLKSIZE=xxxx ! 


dsname 

* ,ddname 

* ,stepname.ddname 

* ,stepname. procstep.ddname 


,DEN= 


Vie neither "n" nor "P" is specified, 1 is assumed. 


6 


8 


10 


1] 


If only "name" is specified, the delimiting parentheses may be omitted. 

If only one "volume-serial-number" is specified, the delimiting parentheses may be omitted. 

SER and REF are keyboard subparameters; the remaining subparameters are positional subparameters. 

The assumption made when this subparameter is omitted is discussed with the SPACE parameter. 

ROUND can be specified only if "average-record-length" is specified for the first subparameter. 

All subparameters are postional subparameters. 

EXPDT and RETPD are keyword subparameters; the remaining subparameters are positional subporameters. 
The assumption made when this subparameter is omitted is discussed in "Job Control Language". 

BUFNO is the only DCB subparameter that should be specified for direct access data sets. 

The first subparometer is positional; all other subparameters are keyword subparameters. 


2 This form is used only with compiler and linkage editor blocked input and output. 





Figure 28. DD Parameters for Creating Data Sets 
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Sample Coding Form 


Pp i-io Cd] SsC-20ssd] i300] I-40 ai-50 J si~6o_ J CS i-7o._—C—Csd] Se 7I-80__ 
[i T2[3{4[s[6l7[sislol 1 2131451617 [s]9ol [23 [4]5]6]7[s]9lol [21314 [5 ]6[7[s9lol t [213141516]718]9]ol 1 12[3[4]5[6[77e}9 lol Je[3{4]s lel? [sis{o} 2/3i4[s)6)7|8}9/o} 










= } | = 1 

// UNIT=DACLASS »VOLUME=(PRIVATE>RETAIN®SER=AAG69 ))> 2 
/ PACE=(3985 (1900198). sCONTIG)ROUND))9 3 
/ DCB=(RECFM=VB,LRECL=604,BLKSI ZE=1212) : 


@, 





~— 





= 






vA 


Ld 
IRIE, = vA Cj Ats TG G La ¢ 4, slo a (Ay bs 


//FT89FGO1, DD DSNAME=GTEMPsUNTT=(TAPECLS3) 9DISP= (NEW PASS )5 i 
// VOLUME= (9 RETAIN]1999SER=(777 988899995444) ) 9 2 


II DCB=(DEN=2,. RECFM=U»BLKSIZE=2500) 


4 . 
f| ‘ag la VSI0U) Data Se. Q Ne Ve e 











¢ 
cd . w, 









A AVI ie at, 






Le oO 415 /, ‘na n Voto Cie A i FiUiC 2 Ciac.dail Oi.geacat 
I\//FT31FGG1, DD DSNAME=CHEMDISP=( KEEP) ,UNIT=242¢-2,9 1 
iI _ OCB=(DEN=29TRTCH=ET 9 RECFM=U 5BLKSIZE=100G)9 2 





|// : VOL=SER=A6Q5 


eFigure 29. Examples of DD Statements 





DDNAME=ddname n|P 


indicates a dummy data set that will specifies the number of devices allo- 
assume the characteristics specified cated to the data set. 


in a following DD statement of 

"ddname." The DD statement identified 

by “ddname“ then loses its identity; 

that is, it cannot be referred to by SPECIFYING VOLUMES 
an *....ddname parameter. The state- | 
ment in which the DDNAME parameter 

appears may be referenced by subse- The programmer indicates the volumes 
quent *....ddname parameters. Ifa used for the data set in the VOLUME parame 
subsequent statement identified by ter: , 
"ddname" does not appear, the data set 

defined by the DD statement containing VOLUME=({PRIVATE] [,RETAIN] 

the DDNAME parameter is assumed to be {, volume-sequence-number ] 
an unused statement. The DDNAME [, volume-count] 

parameter can be used five times in | 

any given job step or procedure step, 

but no two uses can refer to the same , SER= (volume-serial-number 


"ddname. " The DDNAME parameter is | (, volume~serial-number]...) 
used mainly for cataloged procedures. 
| dsname 
,REF=) *. ddname ) 
*.step.ddname 





*.stepname.procstep.ddname 


SPECIFYING INPUT/OUTPUT DEVICES a 

| identifies the volume(s) assigned to 
: the data set. : : ft 
The programmer specifies the name and pS » 
number of input/output devices in the UNIT PRIVATE 


parameter: | indicates that the assigned volume is 
| , Py to contain only the data set defined 
UNIT=(name[, {n|{P}]) | : by this DD statement. PRIVATE .is 


overridden when the DD statement for a 


name ; 3 | | data set requests the use of the. 
is given to the input/output device private volume with the SER or REF 


when the system is generated. subparameter. 
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RETAIN 
indicates that this volume is to 
remain mounted after the job step is 
completed. (Unless RETAIN is speci- 
fied, the volume is dismounted after 
its last use in the job step.) 
Volumes are retained so that data may 
be transmitted to or from the data 
set, or so that other data sets may 
reside on the volume. If the data set 
requires more than one volume, only 
the last volume is retained; the other 
volumes are dismounted when the end of 
volume is reached. If each job step 
issues a RETAIN for the volume, the 
retained status lapses when execution 
of the job is completed. 


volume-sequence-number 

is a one-to-four digit decimal number 
that specifies the sequence number of 
the first volume of the data set that 
is read oor written. The volume 
sequence number is meaningful only if 
the data set is cataloged and volumes 
lower in sequence are omitted. 


volume-count 
specifies the number of volumes 
required by the data set. Unless’ the 
SER or REF subparameter is used, this 
Subparameter is required for every 
multi-volume output data set. 


SER 

Specifies one or more serial numbers 
for the volumes required by the data 
sets. A volume serial number consists 
of one to six alphameric characters. 
If it contains less than six charac- 
ters, the serial number is left 
adjusted and padded with blanks. If 
SER is not specified, and DISP is not 
specified as NEW, the data set is 
assumed to be cataloged and serial 
numbers are retrieved from the cata- 
log, Or inherited from passed data 
sets in a previous step. A volume 
serial number is not required for new 
output data sets. 


REF 

| indicates that the data set is to 
occupy the same volume(s) as the data 
set identified by "“dsname", 
"*.ddname", “*,stepname.ddname", or 
*,. stepname. procstep.ddname. Table 8 
shows the data set references. 


When the data set resides on a _ tape 
volume and REF is specified, the data set 
is placed on the same volume, immediately 
behind the data set referred to by this 
subparameter. When this subparameter is 
used, the UNIT parameter must be omitted. 


Table 8. Data Set References 

ae a ee mE ti ae ae ean eee eae eee arene een peer +. 
| Option | Refers to | 
| REF=dsname ja data set named { 


| |"dsname" [ 
{a data set indica- | 
| {ted by DD statement | 
| {"ddname" in the | 
| | jcurrent job step | 
| REF=*.stepname.ddname|a data set indica- | 
| , {ted by DD statement | 
[ {"ddname" in the job| 
| |step “stepname" | 
}-------------~------- f-=-------=---=----- 
| REF=*.stepname. 
| procstep.ddname|a data set indica- 
| [ted by DD statement 
| |"ddname" in the 

| |procedure step 

| |"procstep" invoked 
| jin the job step 

| |"stepname" 

a a ne Ae RE SR oe ee fe ng es ee PSN ee ee J 


If SER or REF is not specified, the 
control program will allocate any non- 
private volume that is available. 


SPECIFYING SPACE ON DIRECT-ACCESS VOLUMES 


SPACE= (; CYL 
average-record-length 


TRK | 
e (primary-quantity 
[, secondary-quantity] 


{, directory-quantity]) 


«MXIG 
(,RLSEJ) ,ALX (, ROUND]) 
CONTIG 


The SPACE parameter specifies: 


1. Units of measurement in which space is 
allocated. | 

2. Amount of space allocated. » : 

3. Whether unused space can be released. 

4. In what format space is allocated. 


TRK 

CYL 

average-record-length _— | 
Specifies the units of measurement in 
which storage is assigned. The units 
may be tracks (TRK), cylinders (CYL), 
or records (average record length (in 
bytes) expressed as a decimal number 
<65,535). : 
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(primary-quantity[,secondary-quantity] 
{,directory-quantity] ) 


specifies the amount of space 
allocated for the data set. The 
“primary quantity" indicates the num- 


ber of records, tracks, or cylinders 
to be allocated when the job step 
begins. The "secondary quantity" 
indicates how much space is’ to be 


allocated each time 
cated space is exhausted. (Note: The 
maximum number of times secondary 
allocation will be made is 15.) 


previously allo- 


The “directory quantity" is used only 
when writing a PDS, and it specifies 
the number of 256-byte blocks to re- 
serve for the directory of the PDS. 


For example, by specifying: 
SPACE= (120, (400,100) ) 


Space is reserved for 400 records, the 
average record length is 120 charac- 
ters. Each time space is exhausted, 
Space for 100 additional records is 
allocated. ) 


By specifying: 
SPACE=(CYL, (20,2, 5) ) 


20 cylinders are allocated to the data 
set. When previously allocated space 
is exhausted, two additional cylinders 
are allocated. In addition, space is 
reserved for five 256-byte blocks in 
the directory of a PDS. 


RLSE 
indicates that all unused external 
storage assigned to this data set is 
released when the data set is closed 
in a job step. 

MXIG 

iE 

CONTIG 
specify the format of the space allo- 
cated to the data set, as requested in 
the “primary quantity." 

MXIG 
requests the largest single block of 
contiguous storage that is greater 
than or equal to the space requested 
in the “primary quantity." 

ALX 
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requests all available storage on the 
volume as long as there is at least as 
much space as specified in the 
"primary quantity." The operating 
System must be able to allocate at 
least the amount specified as the 
"primary quantity" by using, at most, 
five non-contiguous areas of storage. 


CONTIG 


ROUND 


Note: 
direct-access 


requests that the space indicated in 
the “primary quantity" be contiguous. 


If the subparameter is not specified, 
or if any option cannot be fulfilled, 


the operating system attempts to 
assign contiguous space. If there is 
not enough contiguous space, up to 


five non-contiguous areas are allocat- 
ed. 


indicates that allocation of space for 
the specified number of records is to 
begin and end on a cylinder boundary. 


If a data set might be written on a 
volume, the SPACE parameter 


must be specified in the DD statement. 


LABEL INFORMATION 


The label parameter (LABEL) is 


used to 


specify the type and contents of a data set 
label. 


sinuene Claatacueeseeqacace<nanbesl ce 


,NL 


« EXPDT=yyddd 
» RETPD=xxxx | ) 


data-set-sequence-number 


labeled or unlabeled. 


is a four-digit number that identifies 
the relative location of the data set 
with respect to-the first data set on 
a tape volume. (For example, if there 
are three data sets on a magnetic tape 
volume, the third data set is iden- 
tified by data set sequence number 3.) 
If the data set sequence number is not 


specified, the operating system 
assumes 1. 
specifies whether a data set is 


SL indicates 
standard labels. NL indicates no 
labels (applicable only to data _ sets 
residing on a tape volume). 


beebeseer | 
RETPD=xxxx 


Specifies how long the data set shall 
exist. The expiration date, 
EXPDT=yyddd, indicates the year (yy) 


and the day (ddd) the data set can be 
deleted. The period of retention, 
RETPD=xxxx, indicates the period of 
time, in days, that the data set is to 
be retained. If neither is specified, 
the retention period is assumed to be 
ZCLO~ 


DISPOSITION OF A DATA SET 


The disposition of a data set is speci- 
fied by the DISP parameter; see "Data 
Definition (DD) Statement." The same 
options are used for both creating data 
sets and retrieving previously created data 


sets. When a data set iS created, the 
subparameters used are NEW, MOD, KEEP, 
PASS, and CATLG. 


WRITING A UNIT RECORD DATA SET ON _AN 
INTERMEDIATE DEVICE 


A printed output data set may be written 
on an intermediate device and subsequently 
written on the printer (ultimate device). 


SYSOUT=A 
indicates that the ultimate destina- 
tion for printed output data sets is 
the printer. 


Note: If the DEN subparameter is explicit- 
ly specified for SYSOUT data sets, only 
DEN=2 is allowed in the DCB parameter. In 
addition, TRICH=C must be specified in the 
DCB parameter when the SYSOUT data set (1) 
is written on 7-track tape, and (2) is 
composed of variable-length records or con- 
tains binary information. 


DCB_ PARAMETER 


For load module execution, the FORTRAN 
programmer may specify record formats and 
record lengths for sequentially organized 
data sets that,reside on magnetic tape or 
direct-access volumes. The DCB information 
is placed in the labels for these data 
sets. 


dsname 

DCB=(| *.ddname 
*. stepname. ddname 
*.stepname. procstep. ddname 


(, DEN={0|1] 2311, TRTCH={C| E|T|ET}] 


{ {F|U} (A] (, BLKSIZE=xxxx] 
« RECFM=< V(A], LRECL=xxxx, BLKSIZE=xxxx 
\ ce V}BIA1, LRECL=xxxx, BLKSTZE=xxxx ) 


[, BUFNO={1| 23] 


REFERRING TO PREVIOUSLY SPECIFIED DCB 
INFORMATION 


The first subparameter 


dsname 

*.ddname 

*.stepname. ddname . 
*.stepname.procstep.ddname 


is used to retrieve DCB parameter informa- 
tion from previously created data _ sets. 
The control program copies the DCB informa- 
tion specified for the data set referred to 
by this subparameter. The copied informa- 
tion is used for processing the data set 
defined by the DD statement in which the 
Subparameter appears. Any subparameters 
that follow this subparameter override any 
copied DCB subparameters. 


dsname 
indicates that the DCB subparameters 
of a cataloged data set “dsname" are 
copied. The data set indicated by 
"dsname“ must be currently mounted and 
it must reside on a direct-access 
volume. 


*.ddname 
indicates that the DCB subparameters 
in a preceding DD statement “ddname" 
in the current job step are copied. 


*,.stepname.ddname 
indicates that the DCB subparameters 
in a DD statement "“ddname"™ that occurs 
in a previous job step “stepname" in 
the current job are copied. 


*. stepname.procstep. ddname 
indicates that the DCB subparameters 
in the DD statement "ddname" are 
copied from a previous step "procstep" 
in a cataloged procedure. The proce- 
dure was invoked by the EXEC statement 
"“stepname" in the current job. 
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DENSITY AND CONVERSION) 


The second subparameter indicates the 


density and conversion for tape volumes. 


DENSITY: Density is only specified for 
data sets residing on magnetic tape 
volumes. 

DEN={0]1| 2} 


indicates the density used to write 
the data set (refer to Table 9). 


eTable 9. DEN Subparameter Values 


aa oleic Mie eee ree ee eee eee 7 
| DEN |Tape Recording Density (bits/inch) ] 
! }------~----------~~---------~--~--- { 
| | Model 2400 | 
| | peoe-n-------- qo---7->------------- { 
|Value | 7-Track | 9-Track | 
}------ t------------- }----------~---------4 
{| 0 | 200 ] = | 
}--~--- }----~-~------ }------------------- ~{ 
{| 1 | 556 | - { 
}------ }------------- }-~-~----------~----- | 
j 2 | 800 | 800 i 
}------ {---~----~---- foma nan nn nnn enna n nem { 
| 3 | = | 1600 | 
Meee oe ge ee eee Ba a a ae ieee te 4 
CONVERSION: Conversion is used only for 


data sets residing on 7-track tape volumes. 


TRICH={C|E]T]ET} 
indicates 
used: 


which conversion type is 


C - data conversion feature is used 
E - even parity is used 


T - translation from either BCD to 
EBCDIC or EBCDIC to BCD is 
required 


ET - even parity is used and transla- 
tion from either BCD to EBCDIC or 
EBCDIC to BCD is required 


RECORD FORMAT 


RECFM=U[A] 
RECFM=V [B] [A] 
RECFM=F (B] [A] {MJ 


The characters U, V, F, and B represent 

U - undefined records (records that do 
not conform to either the fixed- 
length or variable-length format) 

V - variable-length records (records 


whose length can vary throughout the 
data set) 
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F - fixed-length records (records whose 
length is constant throughout the 
data set) 


B - blocked records 


The character A indicates the use of the 
extended ASA carriage control characters 
(see Appendix E); the character M indicates 
the use of machine code control characters. 


RECORD LENGTH, BUFFER LENGTH, BLOCK LENGTH, 
AND NUMBER OF BUFFERS FOR SEQUENTIAL DATA 
SETS 


For blocked records used by the compiler 
or linkage editor, the length of a block is 
specified by the buffer length which is 
specified by 


BLKSIZE=xxxx 


where: 
XXXX 1S a of the record 


multiple 
length 


The record length 
specified by the 
editor. | 


(LRECL) is permanently 
compiler or linkage 


The SYSPRINT data set of the compiler 
has a record length of 120 bytes (including 
the carriage control byte). The SYSIN, 
SYSPUNCH, and SYSLIN data sets have a 
record length of 80 bytes. 


For unblocked records used by the com- 
piler or linkage editor, the programmer 
should set BLKSIZE equal to record length. 

For unblocked fixed-length records or 
undefined records used during load module 
execution, the record length and the buffer 
length are specified by 
BLKSIZE=xxxx 


For unblocked variable-length records, 
the record length is specified by 


LRECL=Xxxx 
buffer length is specified by 


BLKSIZE=xxxx 


Assumptions"). 


1Permanently specified by the compiler and cannot be altered (see "DCB Ranges and | 


eTable 10. Specifications Made by the FORTRAN Programmer for Record Types and Blocking 

epee er ee, Re Ts ee rae ya race coi oa a ea aa aa 7 
| | Blocked or | RECFM | | | 
| Step | Unblocked | Record Type |Specification |Record Length |Buffer Length | 
}------------}-~----------- }---------------}--------------}--------------}-------------- 
}] Compiler or| Unblocked |Fixed-Length Jnot specified |not specified+|BLKSIZE=record] 
{| Linkage | | | | | Length | 
| Editor }-----~-------- 4+——--———~---—-———~—-. 4—~-————~—~———~—~—}—-——--—~-—-—---- | +--+ -- 
| | Blocked | Fixed-Length [not specified1|not specified+]BLKSIZE=xxxx | 
}------------ }------------- }--------------- }~-------------}--------------}-------------- { 
| | | Fixed-Length | RECFM=F? | BLKSIZE=xxxx? | | 
| fo fete eenea-===--- {--—--------— enna anno { | 
| | Unblocked |Variable-Length | RECFM=V | LRECL=xxxx | | 
| J fee a--=--=-- }-------------- }-------------- | 
| Load Module] | Undefined | RECFM=U { BLKSIZE=xxxx |BLKSIZE=xxxx = | 
| Execution  }------------- 4+------~--------- 4+———----————-———-— 4 —-----—- ---—---—- 4 | 
| | | Fixed-Length | RECFM=FB | | 
{ | -}----—-------~--- 4-------------+ 4 LRECL=xxxx | | 
| | Blocked | Variable-Length| RECFM=VB | | | 
| | |--~------------ +-------------- 1_-———------~-- 4-----~-------- 
| | Undefined |Blocked undefined records are not permitted | 
Pesca eo Ue ot ce cattee ia a a Si Ss 4 
| 

| 

| 


For blocked variable-length or fixed- 
length records used by load modules, the 
record length is specified by 


LRECL=xxxx 


block length and buffer length are 
specified by 


BLKSIZE=XxXxXx 
Undefined records cannot be blocked. 


Table 10 is a summary of the specifi- 
cations made by the programmer for record 
types and blocking in FORTRAN processing. 


The number of buffers required to read 
Or write any data set is specified by 


BUFNO=x 


where: 
X=1 Or x=2 


FORTRAN Records and Logical Records for 
Sequential Data Sets 


In FORTRAN, records for sequential data 
sets are defined by specifications in FOR- 
MAT statements and by READ/WRITE lists. A 
record defined by a specification in a 
FORMAT statement is a FORTRAN record (see 
the section “Input/Output Statements" in 
the FORTRAN IV Language publication). A 
record defined by a READ/WRITE list is a 
logical record. Within each category, 


2Not specified for direct access data sets. | 


there are three types of records: fixed- 
length, variable-length, and undefined. In 
addition, fixed-length and variable-length 
records can be blocked. 


UNBLOCKED RECORDS, FORMAT CONTROL: For 
fixed-length and undefined records, the 


record length and buffer length are 
Specified in the BLKSIZE subparameter. For 
variable-length records, the record length 
is specified in the LRECL subparameter; the 
buffer length in the BLKSIZE subparameter. 
The information coded in a FORMAT statement 
indicates the FORTRAN record length (in 
bytes). 


Fixed-Length Records: For unblocked fixed- 
length records written under FORMAT 
control, the FORTRAN record length must not 
exceed BLKSIZE (see Figure 30). | 


Example: Assume BLKSIZE=44 


10 FORMAT(F10.5, 16, 2F12.5, "SUMS') 
WRITE (20,10) AB, NA, AC, AD 


44 Bytes of Data 


Figure 30. FORTRAN Record (FORMAT Control) 
| Fixed-Length Specification 
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If the FORTRAN record 
than BLKSIZE, the record is padded with 
blanks to fill the remainder of the buffer 
(see Figure 31). The entire buffer is 
written. 


length is less 


Example: Assume BLKSIZE=56 


5 FORMAT (F10.5,16,F12.5, ‘TOTAL ) 


33 Bytes of Data 23 Bytes of Blanks 


FORTRAN Record (FORMAT Control) 
With Fixed-Length Specification 
and FORTRAN Record Length Less 
Than BLKSIZE 


WRITE (15,5) BC,NB,BD 
SSS SSS See BLKSIZE — —- —- — —- —-— -— 7 
| 
| 
= —— — —— —— — Written Record — — — — — — —-—— | 
| 
| 
| 
ue —— FORTRAN Record — — — ae 7 
| 


Figure 31. 


Variable-Length Records: For unblocked 
variable-length records written under FOR- 
MAT control, LRECL is specified as four 


greater than the maximum FORTRAN record 
length and BLKSIZE as four greater than 
LRECL. These extra eight bytes are 


required for the 4-byte block control word 
(BCW) and the 4-byte segment control word 
(SCW), as shown in Figure 32. The BCW (see 
Figure 37) contains the length of the 
block; the SCW (see Figure 38) contains the 
length of the record segment, i.e., the 
data length plus four bytes for the SCW. 


If the FORTRAN record length is less 
than (LRECL-4), the unused portion of the 
buffer is not written (see Figure 33). 


pe ae eee BaLKSI Ze SS SSS SSS SS 7 
| 
LRECL : 
in) oes: eee a a | ae) en ees ee RE a eee ee 
[ | 
| 
SSS eS SS FORTRAN Record — — —- — —- 71 


FORTRAN Record (FORMAT Control) 
Variable-Length Specification 


Figure 32. 
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SS SS Se SS BLKSIZE — — — —— — — — —- — — : 
a —_— — Written Record — — — — — 7 : 
| | 

SS SSS SSeS LRECL ar ca aiaamaaC? 
| | 
| | 
| | 


FORTRAN Record (FORMAT Control) 
With Variable-Length Specifi- 
cation and the FORTRAN Record 
Length Less Than (LRECL-~4) 


Figure 33. 


Undefined Records: For undefined records 
written under FORMAT control, BLKSIZE is 
specified as the maximum FORTRAN record 
length. If the FORTRAN record length is 
less than BLKSIZE, the unused portion of 
the buffer is not written (see Figure 34). 


aweammreawe Camas saa a= — 

: l 

Data Not Written " 
—__eoee eee See eee SD —J 


Figure 34. FORTRAN Record (FORMAT Control) 
With Undefined Specification 
and the FORTRAN Record Length 
Less Than BLKSIZE 


| 
| 
f-— —-— — FORTRAN Record —- —— — 4 | 
| 
| 


BLOCKED RECORDS, FORMAT CONTROL: For all 
blocked records, the record length is spec- 


ified in the LRECL subparameter; the block 
length and buffer length in the BLKSIZE 
subparameter. 


Fixed-Length Records: For blocked fixed- 
length records written under FORMAT 


control, LRECL is specified as maximum 
possible FORTRAN record length, and BLKSIZE 
must be an integral multiple of LRECL. If 
the FORTRAN record length is less’ than 
LRECL, the rightmost portion of the record 
is padded with blanks (see Figure 35). 


Example: Assume BLKSI ZE=48 and LRECL=24 


10 FORMAT(I8,F16.4) 
20 FORMAT(I12) 


WRITE (13,10)N,B 

WRITE (13, 20)K 
= SSS BLKSIZE SSS SS 
| 
= SSS Se Written Block = === 4 
-+—-—-—-- LRECL ——— — — on aleietetineten LRECL - — -— a 
| | FORTRAN | 
[= FORTRAN Record = Reg 


12 Bytes 


Data Bytes of 
Blanks 


24 Data Bytes 





Figure 35. Fixed-Length Blocked Records 


Written Under FORMAT Control 


Variable-Length Records: For blocked 
variable-length records written under FOR- 


MAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length, and BLKSIZE must be 4 plus an 
integral multiple of LRECL. The four addi- 
tional bytes allocated with BLKSIZE are 
required for the block control word (BCW) 
that contains the block length. The four 
additional bytes allocated with LRECL are 
used for the segment control word (SCW) 
that contains the record length indication. 


If a WRITE is executed and the amount of 
Space remaining in the present buffer is 
less than LRECL, only the filled portion of 
this buffer is written (see Figure 36); the 
new data goes into the next buffer. Howev- 
er, if the space remaining in a buffer is 
greater than LRECL, the buffer is not 
written, but held for the next WRITE (see 
Figure 36). If another WRITE is not exe- 
cuted before the job step is terminated, 
then the filled portion of the buffer is 
written. 7 


Example: ASsume BLKSIZE=28 and LRECL=12 


30 FORMAT(I3,F5. 2) 
40 FORMAT (F4.1) 
S50 FORMAT(F7. 3) 


oe 


WRITE (12, 30)M,Z 
WRITE(12,40)V 
WRITE(12,50)Y 
(-—--—-------- BLKSIZE — — — — — ——-——-—— 1 
| , | 
--———-—-—- — Written Block — — — —— : , 
. — 
SSeS] RLS eS ERECU ee ris | 


| | 
(-——FORTRAN Record ——4 — -- FORTRAN _ 


| 
| 
t | | 
| | | 
l | l Record | 
; | | | 

| 





[~ —- FORTRAN Record— - 


| | 
| | 


Variable-Length Blocked Records 
Written Under FORMAT Control 






This space of 13 bytes 
Ready for next WRITE. 
(space >LRECL) 





Figure 36. 


NO FORMAT CONTROL: Only variable-length 


records can be written with no FORMAT 
control; i.e., the RECFM subparameter must 
be V. (If nothing is specified, V is 


assumed. ) 


Records written without FORMAT control have 
the following properties: 


e The length of the logical record is 
controlled by the type and number of 
variables in the I/O list of its asso- 
Ciated READ or WRITE statement. 


e A logical record can be physically 
recorded on an external medium as one 
or more record segments. Not all _ seg- 
ments of a logical record must fit into 
the same physical record (block). 


e Three quantities control the manner in 
which records are placed on an external 
medium: the block size (as specified by 
the BLKSIZE parameter), the segment 
length (as specified by the LRECL 
parameter), and the logical record (as 
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defined by the length of the I/O list). 


BLKSIZE and LRECL are specified as part 
of the DCB parameter of the data defi- 
nition (DD) statement. If not speci- 
fied, FORTRAN provides default values. 


with a 
each 


Each block begins 
control word (BCW); 


Y-byte block 
segment begins 


with a 4-byte segment control word (SCW). 
The SCWs and BCWS are provided by the 
system. 

The format of a BCW is given in Figure 
374 


i block-length | reserved | 

Gas a ea J 
2 bytes 2 bytes 

Figure 37. Format of a Block Control Word 


where: 


block-length 
is a binary count of the total number 
of bytes of information in the block. 
This includes four bytes for the 


plus the sum of the segment lengths 
specified in each SCW in the block. 
(The permissible range is from 8 to 


32,767 bytes.) 


reserved 
is two bytes of 
system use. 


zeros reserved for 


The format of an SCW is given in Figure 
38. 
Gg er re re eae 1 
{| segment-length | code | reserved | 
a a ee ee eee J 

2 pytes 1 byte 1 byte 

Figure 38. Format of Segment Control Word 
where: 


segment-length 
is a binary count of the number of 
bytes in the SCW (4 bytes) plus the 
number of bytes in the data portion of 
the segment following the SCW. (The 
permissible range is from 4 to 32,763 
bytes. ) 


code | 
indicates the position of the segment 
with respect to the other segments, if 
any, of the record. Bits 0 through 5 
are reserved for system use and are 
set to 0. Bits 6 and 7 contain the 
codes: 
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BCW | 


Code Meaning 
00 This segment is not followed or 


preceded by another segment 
of the record. 
01 This segment is the first of a 
multi-segment record. 


10 This segment is the last of a 
multi-segment record. 


11 This segment is neither the 
first nor last of a multi- 
segment record. 

reserved 
is a byte of zeros reserved for system 
use. 


Unblocked Records: For unblocked records 
written without FORMAT control the value of 
BLKSIZE is equal to LRECL + 4. (The four 
additional bytes are for the BCW.) 


If the logical record length is less 
than or equal to LRECL-4, the logical 
record comprises one record segment. 


Hence, for the associated READ or WRITE 
Statement, one record segment, i.e., one 
block, is transmitted (see Figure 39). 


Note that the unused portion of the block 
is not transmitted. 


If the logical record length is greater 
than LRECL-4, the logical record comprises 
N record segments, where: N=logical record 
length/LRECL-4. Hence, for the associated 
READ or WRITE statement, N record segments, 
i.e., N blocks, are transmitted (see Figure 
40). 


Example 1: Assume BLKSIZE=28 and LRECL=24 


WRITE (18) Q,R 


where: 
Q and R are real *8 variables. 


fatal waa tame 


Abytes 4 bytes 16 bytes 4 bytes 


Figure 39. Variable-length Unblocked Re- 
cords, No FORMAT Control, One 


Record Segment 


Example 2: Assume BLKSIZE=28 and LRECL=24 


WRITE (18) Q,R,S,V,X 


where: 
QO, R, and V are real *8 variables. 
S and X are real *4 variables 
aS — BLKSIZE ————————— — 1 
| ee eee 4 
. i ca oor Beginning of Logical Record — —— — — — 4 
Abytes 4 bytes 20 byes 
— ———End of Logical Record — — iz = 
4bytes 4 bytes 12 bytes 8 bytes 
Figure 40. variable-length Unblocked Re- 
cords, No FORMAT Control, Two 
Record Segments 
Blocked Records: For blocked records 


written without FORMAT control, each block, 
except the last, is composed of at least M 


record segments, where: M = BLK- 
SIZE-4/LRECL. 

If the logical record length is less 
than or equal to LRECL-4, the logical 
record comprises one — record segment. 
Hence, for the associated M READ or WRITE 


Statement, one block, i.e., M record 


ments, is transmitted. 


seg- 


If the logical record length is greater 
than. LRECL-4, the logical record comprises 


N record segments, where: N = logical 
record length/LRECL-4. Hence, for the 
associated READ or WRITE statement, N 


record segments (i.e., aS many blocks of M 
segments each as are needed to makeup N 
segments) are transmitted. The unused por- 
tion of the last block is held for the next 
READ or WRITE statement (see Figure 41). 


Examples Assume BLKSIZE=28 and LRECL=12 


WRITE (18) A 


WRITE (18) B 


°e 


WRITE (18) E 


where: 

A is a real *8 variable. 

B and E are real *4 variables. 
i’ ——— SS oe Se ee KSI Ze SS SS SS SS | 
| | 
l -—— LRECL ——-~————— LRECL ————— 
bt i : 

| 

| i: — Logical Record mai oe Logical Record— : 
Parr rare 
Abytes 4 bytes 8 bytes 4 bytes 4 bytes 4 bytes 


r~ — Logical Record-——4 


| 1 


Abytes 4 bytes 4 bytes 16 bytes 


Figure 41. Variable-length, Blocked Re- 


cords, No FORMAT Control 


BACKSPACE Operations 


Unblocked Records, FORMAT Control: For all 
unblocked records written under FORMAT con- 
trol, the volume is positioned so that the 
last record read or written is transmitted 
next. 


Unblocked Records, No FORMAT Control: For 
all unblocked records written without FOR- 
MAT control, the volume is positioned so 
that the last logical record read or writ- 
ten is transmitted next. 
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Blocked Records: The programmer is warned 
against backspacing blocked records; the 
results obtained are unpredictable. 


RECORD LENGTH, BUFFER LENGTH, AND NUMBER OF 
BUFFERS FOR DIRECT ACCESS DATA SETS 


A direct access data set can contain 
only fixed-length, unblocked records. Any 
attempts to read or write any other record 
format by specification in the DCB parame- 
ter are ignored. The record length and 
buffer length for a data set are specified 
by the programmer as the record size in the 


DEFINE FILE statement, and cannot be 
changed by specifying the BLKSIZE or LRECL 
Subparameters in the DCB parameter. For 


example, the statement: 


DEFINE FILE 8(1000,152,E,INDIC) 


sets the record length and buffer length 
permanently at 152 bytes. The direct 
access data set defined by this DEFINE FILE 
statement contains 1000 fixed-length, 
unblocked records, each record is 152 bytes 
long, and is written under FORMAT control. 


The only DCB parameter that can be 
supplied for direct access data sets is the 
number of buffers: 


BUFNO=x 


where: 
x is the number (1 or 2) of buffers 


used to read or write the data set. 


For records written with FORMAT control, 
the record format is the same as for 
fixed-length unblocked records written with 
FORMAT control for sequential data _ sets. 
For records written with no FORMAT control, 
the records must be fixed length and 
unblocked. These records do not contain a 
block control word or a segment’ control 
word. For records written with no FORMAT 
control, the logical record can exceed the 
record length specified in the DEFINE FILE 
statement. If it is shorter than the 
record length, the remaining portion of the 
record is padded with zeros (see Figure 
42). 
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4 Data Bytes 


Figure 42. 


16 Bytes of Zeros 


Logical Record (No FORMAT 
Control) for Direct Access 


Example: A DEFINE FILE state- 
ment has specified the record length for a 
direct access data set as 20. This state- 
ment is then executed. 


WRITE (9'IX)DP1,DP2,R1,R2 


where: 7 
DP1 and DP2 are double precision vari- 


ables 


R1 and R2 are real variables 
IX is an integer variable 
that contains the record 
position 
BACKSPACE, END FILE, and REWIND opera- 
tions are ignored for direct access. data 
sets. | 


DCB RANGES AND ASSUMPTIONS 


For compilation, the LRECL value for the 
following data sets is fixed and cannot be 
altered by the programmer: 


Data Set LRECL Value 
SYSPRINT 120 
SYSIN 80 
SYSPUNCH 80 
SYSLIN 80 


The SYSPRINT, SYSIN, and SYSPUNCH com- 


piler data sets can contain blocked 
records. If the higher level linkage edi- 
tor (program name: IEWLE440) is used, the 
SYSLIN data set can contain blocked 
records. 


The BLKSIZE value must be an 
multiple of 
shown above. 


integral 
the corresponding LRECL value 
The maximum BLKSIZE value is 
limited only by the type of input/output 
device (see Table 11), except that for 
SYSLIN the maximum BLKSIZE value is 400 


integral multiple of the LRECL value; for V 
type records, BLKSIZE must be specified as 
4 + n x LRECL (where n is the number of 
records in the block); for U type records, 
no blocking is permitted. Note, too, that 
the BLKSIZE and LRECL range is limited only 


with linkage editor IEWLE440. by the type of device used to directly 
write the data set (see Table 10.1). Load 
For load module execution, specifi- module DCB parameter default values are 
cations depend on record type. For F type shown in Table 12. 
records, the BLKSIZE value must be an 
Table 11. BLKSIZE Ranges: Device Considerations 
per r ae r ee i cama aaa aa a aaa er Naa aaa 1 
| | BLKSIZE Ranges l 
| nm en eee mrvciea aa da See a a a ee = ag ak 4 
| Device Type | F and U Record Type | V Record Type | 
|------------------ }---------------------=---------- }----------------------------------- | 
| Card Reader | 1<x<80 | 9<x<80 | 
}------------------ }-------------------------------- }---~------------------------------- | 
} Card Punch | 1<x<81 | 9<Sx<89 | 
}------------------ }-------------------------------- }----------------------------------- : 
| Printer: | [ | 
| 120 Spaces | 1<x<121 | 9<x<129 | 
| 132 Spaces | 1<x<133 | 9<xS141 | 
| 144 Spaces | 1<x<145 | 9<x<153 | 
}------------------ }----+--------------------------- 1_——-—----------~------------------- { 
| Magnetic Tape | 18<x<32,000 | 
eipieerie ieee eons aaah laa a ea i aa SS gm ca Ne q 
| Direct Access: | Without Track Overflow1t | With Track Overflowt | 
| }-------------------------------- }----------------------------------- { 
| 2301 | 1<x<20,483 | 1<x<32,763 | 
| 2302 | 1<x<4984 | 1<x<32,763 | 
| 2303 | 1<x<4892 | 1<x<32,763 | 
| 2311 | 1<x<3625 | 1<x<32,763 | 
| 2314 | 1<$x<7294 | 1<x<32, 763 | 
foe ot ae 1 Eee engi a Ee ee a Be eee ea 4 
| 2I£ RECFM=V,' the minimum block size is 9. | 
Os a a a a a a er et a i ae ee ae ee ee ae ee oe J 
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* Table 12. Load Module DCB Parameter Default Values 


ee ee Meee a ie ee a ee 

| Sequential Data Sets | Direct Access Data Sets | 

SeSe=S SSS Sasa 1 saa as ce Aaa aa) RA paca Gia ana EGR acral Oar cane IE 

| Data Set | {| Defauit } Default | Default | Default LRECL | 

I| Reference Number | ddname | BLKSIZE* | RECFM? | RECFM {| or BLKSIZE | 
}-------------------- }------------ {------------ }~---------- $----------- +--------------- 4 

| 1 | FTO1Fyyy | 800 | ov | F | | 

}-------------------- }~------------ }------------ }----------- t----------- { | 

| 2 | FTO2Fyyy | 800 | U i F | The value spec-| 

}-------------------- +------------ $------------ +----------- to------=---] | 

[| 3 | FTO3Fyyy | 800 | U | FA? | ified as the | 
~--~---------------- }------------}------------}-----------}-----------| | 

| 4 | FTO4Fyyy | 800 | U | F | maximum size of | 

}-------------------- }--------=--- }+------~----- }----------- +--------—-- { | 

| 5 | FTO5Fyyy | 80 | F { F | a record in the| 

}-----------~-------- }------------ }------------ }----------- +----------- { | 

|| 6 | FTO6Fyyy | 133 | UA3 | F | DEFINE FILE i 
|-------------------- }------------ }----~------- foa-—a----=- {----------- { | 

| 7 | FTO7Fyyy | 80 | F | F | statement. | 

}-------------------- }------------ }-~--~-~----- {----------- }----------- { | 

| 8 {| FTO8Fyyy | 800 | U | F | | 

| . | : | . |} | : | 

| ° | . | ° | . | . | | 

| - | : | ° | . | . | 

| 99 | FT99Fyyy | 800 | U | F | | 

Peete eee eee Aa ee tas a a eS 2 ER ee anon a Pe eee oe a ae ee ee et eae ee J 


[]1I£ the records have no FORMAT control, the default LRECL is 4 less than BLKSIZE, where| 
| the default BLKSIZE is as specified in this table. | 
||?If the records have no FORMAT control, the default RECFM is V (F if it is direct] 
| access). | 
[|2The first character in the record is for carriage control. | 
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This section contains figures illustrat- 
ing the job control statements used in the 
FORTRAN IV cataloged procedures and a brief 
description of each procedure. The state- 
ments used to override the statements and 
parameters in any cataloged procedure are 
also discussed in this section. (The use 
of cataloged procedures is described in 
“FORTRAN Job ProcesSing.") 


Compile 


In each of the three cataloged proce- 
dures that include the compile step 
(Figures 44, 45, and 46), the EXEC state- 
ment named FORT designates that the operat- 
ing system is to execute the program IEY- 
FORT FORT (the FORTRAN IV G compiler). 


The REGION parameter iS ignored by 


sequential schedulers. For priority 
schedulers, it specifies a region size 
sufficient to approximately 400 


compile 
Statements. | 


Priority schedulers require that region 
Size be specified, unless the user is 
willing to accept the default region size 
(as established in the input reader 
procedure). 


of the region is directly 
related to the maximum number of source 
statements that can be compiled by the 
FORTRAN G compiler. A region size of 100K 
is estimated to be sufficient to compile 
approximately 400 statements assuming 
unblocked input and output and non-resident 
access methods. To adjust this region size 
for smaller or larger source programs, use 
75 bytes per statement as a rule of thumb. 


The size 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of in the JOB statement. 


The compiler options (shown in Figure 
23) are not supplied with any procedure 
containing a compile step. Therefore, if 
the user wishes to have certain operations 
performed, he must specify those options in 
the job control statements. However, if 
the user does not specify any of the 
options, the system will assume certain 
default options which are noted by the 
underscores in Figure 23. 


CATALOGED PROCEDURES 


The control statements contained in the 


procedure (shown in Figure 43) designate 
the data sets to be used by the compiler 
during its operation. The source listing, 


compile-time information, and error messa- 
ges are written on the data set designated 
by the SYSPRINT DD statement. The object 
module resulting from the operation of the 
FORTRAN compiler is written in the tempora- 


ry data set 6&LOADSET, designated in the 
SYSLIN DD statement. This data set is 
sequential and is assigned to a_ sequential 


device such as a 
device. However, 


tape or direct-access 
if the direct-access 
device is assigned, a primary allocation of 
200 records is requested with a secondary 
allocation of 100 records. Average record 
length is specified as 80 bytes. The data 
set is in PASS status and records can be 
added to the data set. The SYSPUNCH DD 
statement defines the card punch to be used 
in obtaining an object deck. 


The SYSOUT=B parameter on the SYSPUNCH 
DD statement is interpreted by sequential 
schedulers as indicating the system card 
punch unit. The priority scheduler will 
route the output to output class B. 


The programmer can override any of the 


default options by using an EXEC statement 
which includes’ the options that are 


desired. 


Compile and Link Edit 


The cataloged procedure to compile the 
source module and link edit the resulting 
FORTRAN object module (FORTGCL) is shown in 
Figure 44, The control statements for 
compilation are the same as described 
above. However, output of the object 
module is defined by the SYSLIN DD _ state- 
ment. 


In each of the cataloged procedures that 
include a link edit step (Figures 44, 45, 


and 46), the EXEC statement named LKED 
specifies that the operating system is to 
execute the program IEWL (the linkage 
editor). However, the linkage editor step 


(or the remainder of the procedure) is not 
executed if a condition code greater than 4 
was generated during the operation of the 
compile step in the same procedure. 
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IBM FORTRAN Coding Form Recreate 

wacine,. pommel mee er 

ea ee ee ed 
TAME 5 peer een 
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eFigure 43. Compile Cataloged Procedure (FORTGC) 





























Execution of the link edit step produces The execute step is included in two 
a list of the linkage editor control state- cataloged procedures (see Figures 45 and 
ments (in card image format), a map and 46). In each of these procedures’ the 
cross-reference listing of the load module, execute step is invoked by the EXEC state- 
and a list of linkage editor diagnostic ment named GO. However, this step is 
messages on the data set specified by the bypassed if a condition code greater 
SYSPRINT DD statement. The load module is than 4 was generated during the 
marked executable even though error condi- operation of the link edit step in this 
tions are found during processing. procedure. 


The primary input to the linkage editor 
may consist of concatenated data sets. The 
first, defined by the SYSLIN DD statement, 
is the output of the compiler; the second 
(may be omitted) is the data set defined by 


a LKED.SYSIN DD statement which is speci- Input to the execute step is defined by 
fied by the user and is external to the a GO.SYSIN DD statement which iS supplied 
procedure. by the user and is external to the proce- 


dure. The data set is read using data set 
External references made in a FORTRAN reference number 5. In the link edit step, 
object module are resolved by the linkage execution-time error messages are written 
editor. Some or all of these references in the data set defined by the SYSPRINT DD 
can be resolved from the FORTRAN library statement. In the execute step, error 
(SYS1.FORTLIB) designated in the SYSLIB DD messages and information for traceback, 
statement. : DUMPs, and PDUMPs are written on the data 
set associated with the reference number 6. 
During processing, the linkage editor (Output from the load module can also _ be 
requires a work data set which is defined written in the same data set.) The card 
by the SYSUT1 DD statement. This data set punch is associated with data set reference 
is assigned to a direct-access device with number 7. 
primary allocation of twenty records and 
secondary allocation of ten records. The 
load module produced by the linkage editor 
is written in the temporary PDS defined in 
the SYSLMOD DD statement. The data set is In a multiprogramming environment with a 
in the PASS status. priority scheduler, main storage require- 
| ments for the execute step are determined 
by a number of factors. These include: the 
size of the object program produced by the 
compiler, the requirements of the data 
Link Edit and Execute access method used, the blocking factors, 
the number and sizes of the data sets used, 
the number and sizes of library subprograms 
This cataloged procedure, FORTGLG, first invoked, and the sizes of the execution 
link edits the FORTRAN object module and time routines required by the program. If 
then executes the resulting load module. the default region size (established in the 
(Procedure is shown in Figure 45.) Since cataloged procedure for the input reader) 
the link edit step is the first step in the is not large enough for the program, 
procedure, the primary input is the data REGION.GO must be used to specify the 
set defined by the LKED.SYSIN DD statement. region size for the execute step. 
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A listing of the execution time routines Sizes of both the execution time routines 


required for various input/output, inter- and the mathematical subprograms. 
ruption, and error procedures is contained 


in IBM System/360 FORTRAN IV Library Sub- An example of using a REGION.GO specifi- 
programs. That publication also lists the cation to indicate the main storage 


Cataloged Procedures 


requirements for the execute 
FORTRAN program follows. 


step of a 


//EXAMPLE1 JOB ACCOUNT1, ‘JOHNSMITH' X 
MSGLEVEL=1 
//EXEC FORTGCLG, PARM. FORT=DECK, Xx 


REGION. GO=8 4K 


//PFORT.SYSIN DD* 


FORTRAN SOURCE SYMBOLIC DECKS 


/* 


//LKED.SYSIN DD* 


e 


PREVIOUSLY COMPILED OR ASSEMBLED 
OBJECT DECKS 


/* 


7/GO.SYSIN DD* 


INPUT DATA 


/* 


Compile, Link Edit, and Execute 


The cataloged procedure (FORTGCLG) to 
compile, link edit, and execute FORTRAN 
source modules is shown in Figure 46. This 
cataloged procedure consists of the state- 
ments in the FORTGC and FORTGLG procedures, 
with the following exception: the SYSLIN DD 
Statement defines the output of the compil- 
er, and the same statement in the link edit 
step identifies this output as the primary 
input. 


The programmer does not have to define 
the linkage editor input as was required 
for the FORTGLG procedure, but the input 
data set must be defined for the compiler 
so that the source module can be read. A 
data set containing primary input to the 
linkage editor may also be defined by using 
a LKED.SYSIN DD statement. This data set 
is concatenated with the data set contain- 
ing the output of the compiler. 
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USER AND MODIFIED CATALOGED PROCEDURES 


can write his own cata- 
them to the 


The programmer 
loged procedures and tailor 


facilities in his installation. He can 
also permanently modify the IBM-supplied 
cataloged procedures. For information 


about permanently modifying cataloged pro- 


cedures, see the Job Control Language pub- 
lication. | 


The IBM-supplied cataloged procedures 
for FORTRAN IV (G) define logical unit 05 
as SYSIN, 06 as SYSOUT, and 07 as SYSCP 
(see Figures 45 and 46). If, during system 
generation, values other than 05 for the 
ONLNRD parameter, 06 for the OBJERR parame- 
ter, and 07 for the ONLNPCH parameter were 
specified in the FORTLIB macro instruction 
, one or more of the following DD cards 
must be added to the cataloged procedures, 
either to override them at execution time 
or to modify permanently. 


If a //GO.SYSIN DD * statement is used 
to define the input data set, DCB paramet- 
ers should not be specified. However, if 
the data set defined as SYSIN resides 
somewhere other than on the system input 
device, the programmer should be aware that 
the default BLKSIZE is 800 and the default 
RECFM is U (see Table 10). Therefore, if 
he desires a BLKSIZE of 80 and a REFM of F, 
he must specify them explicitly. 


e For the unit specified as ONLNRD, use 
the DD card: 


//GO.FTxXxF001 DD DDNAME=SYSIN 


e For the unit specified as 
the DD card: 


OBJERR, use 


//GO.FTXXF001 DD SYSOUT=A 


e For the unit specified as ONLNPCH, use 
the DD card: 


//GO.FTXXF001 DD UNIT=SYSCP, Xx 
DCB= (BLKSI ZE=80, RECFM=F) 


where: 
| xx (2 digits) is the unit spec- 
ified 


The publication IBM System/360 Operating 


System, System Generation describes the 
FORTLIB macro instruction. 


In addition, the DD card for FT05001 
must be deleted permanently from the cata- 
loged procedure. 


. M2a-7327-9 
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eFigure 46. Compile, Link Edit, and Execute Cataloged Procedure (FORTGCLG) 


OVERRIDING CATALOGED PROCEDURES procedure and to supply the compiler 
options. 


Cataloged procedures are composed of 

EXEC and DD statements. A feature of the //STEP1 EXEC FORTGC, X 

operating system is its ability to read // PARM. FORT=" MAP, NAME=MYPROG' 

control statements and modify a cataloged 

procedure for the duration of the current 

job. Overriding is only temporary; that The PARM options apply to the procedure 

is, the parameters added or modified are in step FORT. 

effect only for the duration of the job. 

The following text discusses the techniques 

used to modify cataloged procedures. Example 2: Assume the cataloged procedure 
FORTGLG is used to link edit and execute a 
module. Furthermore, the MAP option over- 
rides XREF, LET, and LIST in the linkage 
editor step and the COND parameter is 

Overriding Parameters in the EXEC Statement changed for the execution of the load 
module. The following EXEC statement adds 
and overrides parameters in the procedure. 


Two forms of keyword parameters 
("keyword" and "keyword.procstep") are dis- 
cussed in “Job Control Language." The form 4/DO EXEC FORTGLG, PARM.LKED=MAP, X 
"“keyword.procstep" is used to add or over- // COND. GO= (3, LT, DO. LKED) 


ride ‘parameters in an EXEC statement in a 
cataloged procedure. 
The PARM parameter applies to the link- 
The FORTRAN programmer can, for example, age editor procedure step LKED, and _ the 
add (or override) compiler or linkage edi- COND parameter applied to the execution 
tor options for an execution of a cataloged procedure step GO. 
procedure, or he can state different condi- 
tions for bypassing a job step. 
Example 3: Assume a source module is 
Note: When the PARM parameter is overrid- compiled, link edited, and executed using 
den, all compiler and/or linkage editor the cataloged procedure FORTGCLG. Further- 
options stated in the EXEC statement in the more, the linkage editor option MAP is 
procedure step are deleted and replaced by specified, and account number 506 is’ used 
those in the overriding PARM parameter. for the execution procedure step. The 
following EXEC statement adds and overrides 
Example 1: Assume the cataloged procedure parameters in the procedure. 
FORTGC is used to compile a program, and 
the programmer wants to specify the name of 
his program and the MAP option. The fol- //STEP1 EXEC FORTGCLG, PARM. LKED=MAP, Xx 
lowing statement can be used to invoke the J / ACCT. GO=506 
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Overriding and Adding DD Statements 


A DD statement with the name 
"stepname.ddname" is used to override 
parameters in DD statements in cataloged 
procedures, or to add DD statements to 
cataloged procedures. The "stepname" iden- 
tifies the step in the cataloged procedure. 
If "ddname" is the name of a DD statement: 


1. Present in the step, the parameters in 
the new DD statement override parame- 
ters in the DD statement. in the proce- 
dure step. 


2. Not present in the step, the new DD 


statement is added to the step. 


In any case, the modification is only 
effective for the current execution of the 
cataloged procedure. 


When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are 
replaced by the corresponding parameters in 
the new DD statement. Therefore, only 
parameters that must be changed are speci- 
fied in the overriding DD statement. | 


If more than one DD statement iS modi- 
fied, the overriding DD statements must be 
in the same order as the DD statements 
appear in the cataloged procedure. Any DD 
Statements that are added to the procedure 
must follow overriding DD statements. 


When the procedures FORTGC, FORTGCL, and 
FORTGCLG are used, a DD statement must be 
added to define the SYSIN data set to the 
compile step in the procedures (see Figures 
15 and 21). When the procedure FORTGLG is 
used, a DD statement must be added to 
define the SYSLIN data set (see Figure 18). 


When the procedures FORTGCL, FORTGLG, 
and FORTGCLG are used, an overriding DD 
Statement can be used to write the load 
module constructed in the linkage editor 
step in a particular PDS chosen by the 
programmer, and assign that member of the 
PDS a particular name. 


During execution of procedure steps, the 
programmer can catalog data sets, assign 
names to data sets, supply DCB information 
for data sets, add data sets, or specify 
particular volumes for data sets by using 
overriding DD statements. 
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Example 1: Assume the data sets identified 
by ddnames FTO4FO01 and FTO8FO001 are named, 
cataloged, and assigned specific volumes. 
The following DD statements are used to add 
this information and indicate the location 
of the source module. 


//J3JOB1 JOB MSGLEVEL=1 
4/STEP1 EXEC FORTGCLG 
4/FORT.SYSIN DD * 


ot eg ae et er ee ee 1 
J FORTRAN Source Module | 
i a ea re ete eRe et eee me en neoeen n are SP J 
/* 

//GO.FTO4F001 DD DSNAME=MATRIX, Xx 
// DISP=(NEW,CATLG) , UNIT=TAPE, Xx 
7/ VOLUME=SER=9 87K 

//GO.FTO8F001 DD DSNAME=INVERT, Xx 
// DISP= (NEW, CATLG) , UNIT=TAPE, X 


// VOLUME=SER=1020 
//GO.SYSIN DD* 


a ee 1 
| Input to Load Module | 
a ors Nn Fe a, A ee ioe J 
/* 

Example 2: Assume DCB information is added 


to the DD statement identified by ddname 
FTO8F001 and a data set for data set 
reference number 4 is created and cata- 
loged. 


//S3OB2 JOB 
//STEP1 EXEC FORTGLG 
//UKED.SYSIN DD * 


/* 

//GO.FTO4YFO01 DD DSNAME=FIRING, x 
// UNIT=SYSDA, DISP=(NEW, CATLG) , Xx 
J/ SPACE= (100, (2000,200),,, ROUND), x 
// VOLUME= (PRIVATE, SER=207H), xX 
7/ DCB= (RECFM=VB, LRECL=300, BLKSIZE=604) 
//GO.FTO8F001 DD DCB=(RECFM=F, BLKSIZE=200) 
//GO.SYSIN DD * 


Fe ee eg ee ey ee 1 
[ Input to Load Module | 
a a ee J 
/* 

Example 3: Assume the link edit and exe- 


cute cataloged procedure (FORTGLG) is used. 
The load module constructed in the linkage 
editor step is placed in the cataloged 
partitioned data set MATH and is assigned 
the member name DERIV. 


//30B3 JOB 

//STEP1 EXEC FORTGLG 

//UKED.SYSLMOD DD DSNAME=MATH(DERIV), x 
// DISP= (OLD, PASS) 

/7UKED.SYSIN DD * 


| ~—~—~—sS*FORTRAN Object Module” } 
aid: 
//GO.SYSIN DD * 

| .~—~—sInput to Load Module” i 
a 
Exampte 4: Assume the compile, link edit, 


and execute cataloged procedure (FORTGCLG) 
is used with three data sets in the input 
stream: 


1. A FORTRAN main program MAIN with a 
series of subprograms, SUB1 through 
SUEBN. 


2- A linkage editor control statement 
that specifies an additional library, 
MYLIB. MYLIB is used to resolve 
external references for the symbols 
ALPHA, BETA, and GAMMA. 


3. A data set used by the load module and 


identified by data set reference num- 
ber 5 in the source module. 
The following example shows’ the deck 
Structure, — 


//JOBCLG, JOB 00, FORTRANPROG, MSGLEVEL=1 
//HXECCLGX EXEC FORTGCLG 
//FORT.SYSIN DD * 


Bee yn ee ee a os er 1 
| FORTRAN Source Module MAIN | 
}----------------------------------------- { 
| FORTRAN Source Module SUB1 | 
| ----------------------------------------- { 
| . | 
| - | 
. | 
}------- ~~---------------------~--------- { 
| FORTRAN Source Module SUBN | 
Bohs ee ae ee ee J 
/* 


//LKED.ADDLIB DD DSNAME=MYLIB 
//UKED.SYSIN DD * 

LIBRARY ADDLIB (ALPHA, BETA, GAMMA) 
/ * 
//GO.SYSIN DD *# 


a a ER a 1 
] Input to Load Module | 
ae a fat PIRSA, ROR ne ats ay Les ed Ne etree ER ee J 
/* 


The DD statement FORT.SYSIN indicates to 
the compiler that the source modules are in 
the input stream. The DD statement 
LKED.ADDLIB defines the additional library 
MYLIB to the linkage editor. The DD state- 
ment LKED.SYSIN defines a data set that is 
concatenated with the primary input to the 
linkage editor. The linkage editor control 
statements and the object modules appear as 
one data set to the linkage editor. The DD 
statement GO.SYSIN defines data in the 
input stream for the load module. 
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PROGRAMMING CONSIDERATIONS 


This section discusses minimum system 
requirements for the compiler, program 
optimization, updating the FORTRAN library, 
creation of the programmer's private 
library, and limitations of the compiler. 


STORAGE LOCATIONS AND BYTES 


Storage locations in System/360 are 
called bytes, words, and double-words. One 
word is four bytes long; a double-word is 
eight bytes long. When data is read into 
main storage, it is translated into inter- 
nal format. See Table 13 for storage 
allocation according to the type and length 
of the constant or variable. 


Table 13. Storage Allocation 

pa ee 5 a gear: Woot a ee 1 
Type | Length Storage | 
~~-------------}------ }~~----------------4 
| Logical | 1 |1 byte | 
| | 4 |4 bytes | 
}~-------------- }------ }~---------~------- { 
|Real | 4 |4 bytes | 
| | 8 |8 bytes | 
}-~------------- }------ {-~---------~------ 
| Integer | 2 |2 bytes (variable | 
| | | only) | 
| | 4 |4 bytes | 
}--------------- }------ }------------------ { 
| Complex | 8 |8 bytes | 
| | 16 {16 bytes | 
}--------------- +------ +------------------ 
| Character | --  |1 character/byte | 
{ (BCD or EBCDIC) | l l 
~--------------}------ ~----------------- { 
| Hexadecimal | -~-- |2 characters/byte | 
pie ee eee See Re Apnea ane ie SUR chiatry ne nee ee ee J 


MINIMUM SYSTEM REQUIREMENTS FOR THE FORTRAN 
COMPILER 


The FORTRAN compiler requires at least a 
System/360 Model 40 computer with a minimum 
storage capacity of 128K bytes and a stand- 
ard instruction set with the floating-point 
option. 


All programs require a device such as an 
IBM 1052 Keyboard Printer for direct opera- 
tor communication. Also, at least one 
direct-access device must be provided for 
system residence. 
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The printer must have at least a 


120-character print line. 


| SOURCE PROGRAM CONSIDERATIONS 


The FORTRAN compiler automatically 
provides optimization of certain areas of 
the source module. Other areas may be 


optimized by the programmer through his use 
of the FORTRAN language. 


The following paragraphs describe the 
optimization facilities that are provided 
by the compiler and those defined by the 
programmer. 


DO Loop Optimization 


During the operation of the FORTRAN 
compiler, one complete phase is included 
for the purpose of DO loop optimization. 


Each loop is recorded internally as it 
is encountered in the source module. As 
each step of the optimization process pro- 
gresses, the loops are further categorized 
for ease of reference in generating the 
corresponding object code. 


If loops are nested, the end of each 
loop is denoted by a special reserve mark, 
which is placed at the end of the inter- 
mediate notation that is being produced. 
The level of nesting is also recorded for 
each group of nested loops. This minimizes 
execution time in determining at object 
time the depth to which calculation must be 
maintained to close the first loop of the 


nest. 
A further categorization divides the 
loops into standard and non-Standard. 


Standard denotes the requirements of reg- 
ister assignment for the script expression, 
and non-standard denotes the opposite. 
This method enables the compiler to make 
register assignments prior to the final 
generation of the object code. In this 
way, addresses are retrieved and inserted 
into the designated instruction without 
unnecesSary repeated address calculation. 


Indicators and Sense Lights 


At the start of program execution, the 
Givide-check indicator, the overflow indi- 
cator, and the sense lights are not ini- 
tialized. Therefore, if a programmer 
intends to use the indicators or sense 
lights, he should initialize them prior to 
use; otherwise, erroneous results may be 
obtained. 


Boundary Adjustment of Variables in COMMON 
Blocks and EQUIVALENCE Groups 


Variables in a COMMON block or EQUIVAL- 
ENCE group may be in any order if the 
BOUNDRY=ALIGN option was specified in the 
FORTLIB macro instruction during system 
generation, since boundary-alignment viola- 
tions will be corrected at exection time. 
(The FORTLIB macro instruction is described 


in the publication IBM System/360 Operating 


System, System Generation). If the 
BOUNDRY=NOALIGN option was specified and 


boundary violations are encountered during 
execution of the object program, the job 
will terminate. 


If the BOUNDRY=ALIGN option of the FORT- 
LIB macro instruction was specified and a 
boundary violation occurs in a FORTRAN main 
program Or in a FORTRAN or assembler lan- 


guage subprogram, each instruction that 
refers to the improperly aligned variable 
will require that (1) the specification 


exception resulting from this reference be 
processed, and (2) the boundary-alignment 
routine be invoked. Therefore, considera- 
ble programming efficiency will be gained 
if the programmer insures that all of the 
variables have proper boundary alignment. 
The publication IBM System/360 FORTRAN IV 
Language contains information on boundary 
alignment. 

alignment is 


When boundary performed, 


program interrupt message IHC210T is 
issued. (This message is described in the 
section "Program Interrupt Messages" in 


Appendix D). For boundary alignment, the 
letter A appears in the text of the message 
and the code 6 appears in the old PSW 
(program status word), which is included in 
the message. The number of warning messa- 
ges printed is limited to 10. After 10 
boundary-~alignment adjustments have been 
made, the message is suppressed, but 
boundary-alignment violations continue to 
be corrected. 


Note: Even if BOUNDRY=ALIGN was specified, 
1£ a boundary error occurs on an EXECUTE, 
LOAD MULTIPLE, or STORE MULTIPLE assembler 
language statement, boundary adjustment 


will not take place and the job will 
terminate. Therfore, if these instructions 
refer to improperly aligned data, they 
Should not be used in assembler language 


subprograms. 


Use of DUMP and PDUMP 


Under the operating system, a program 
may be loaded into different areas of 
Storage for different executions of the 


Same job. The following conventions should 
be observed when using the DUMP or PDUMP 
Subroutine to insure that the appropriate 
areas of storage are dumped. 


a variable are to be 
a separate set of 


If an array and 
dumped at the same time, 


arguments should be used for the array and 
for the variable. The specification of 
limits for the array should be from the 


first element in the array to the last 
element. For example, if an array TABLE is 
dimensioned as: 


DIMENSION TABLE (20) 


The following statement could be used to 
dump TABLE and the real variable B in 
hexadecimal format and terminate execution 
after the dump is taken: 


CALL DUMP (TABLE(1),TABLE(20), 0,B,B,0) 


If an area in COMMON is to be dumped at 


the same time aS an area of storage not in 
COMMON, the arguments for the area in 
COMMON should be given separately. For 


example, if A is a variable in COMMON, the 
following statement could be used to dump 
the variables A and B in real format 
without terminating execution: 


CALL PDUMP (A,A,5,B,B,5) 


If variables not in COMMON are to be 
dumped, the programs should list each vari- 
able separately in the argument list. For 
example, if R, P, Q are defined implicitly 
in the program, the statement: 


CALL PDUMP(R,R,5, P,P, 5sQyQ, 5) 


should be used to dump the three variables. 
If the statement: 


CALL PDUMP(R,Q,5) 


is used, all main Storage between R and Q 


is dumped. 
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If an array and a variable are passed as 
arguments to a subroutine, the arguments in 
the call to DUMP or PDUMP in the subroutine 
Should specify the parameters used in the 
definition of the subroutine. For example, 
if the subroutine SUBI is defined as: 


SUBROUTINE SUBI(X, Y) 
DIMENSION xX(10) 
and the call of SUBI within the 
module is: 


Source 


DIMENSION A(10) 


10 CALL SUBI(A,B) 


then the following statement in the subrou- 
tine should be used to dump the variables 
in hexadecimal format without terminating 
execution: 


CALL PDUMP (X(1),X(10),0,Y,Y,0) 
If the statement: 
CALL PDUMP (X(1),Y,0) 


is used, all storage between A(1) and Y is 
dumped, due to the method of transmitting 
arguments. (Y does not occupy the same 
storage location as B.) 


Use of ERR Parameter in READ Statement 


Use of optional ERR parameter for a READ 
statement can indicate the source program 
statement to which transfer should be made 
if an error is encountered during data 
transfer. When transfer has been made to 
that statement, the first subsequent READ 
in the source program provides the record 
that was in error. If this is not the 
record desired, an additional READ should 
be issued. | 


If the ERR parameter is omitted from the 
READ statement, and input/output device 
error terminates program execution. 


Direct Access Programming 


eS cere ee RS a Oe 


Using direct access I/O rather than 
sequential I/O can decrease load module 
execution time: the direct access state- 
ments in the FORTRAN IV language enable the 
programmer to retrieve a record from any 
place on the volume without reading all the 
records preceding that record in the data 
set. Direct data sets should be pre- 
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formatted. If the NEW subparameter is 
specified in the DD statement for the data 
set, the FORTRAN load module will format 
the data set before the program begins 
processing. 


Note: Direct access I/O statements and 
Sequential I/O statements may not be used 
to process, via the same unit number, the 
same direct data set within the same 
FORTRAN load module. However, sequential 
I/O statements may process a direct data 
set in one load module, while direct access 
I/O statements process it in another. 





Not all applications are suited to 
direct access I/O, but an application that 
uses a large table that must be held in 
external storage can use direct access I/0 
effectively. An even better example of a 
direct access application is one that uses 


a data set that is updated frequently. 
Records in the data set that are updated 
frequently are called master records. 


other data sets used to update 
records are called detail 


Records in 
the master 
records. 


Each of the master records should con- 
tain a unigue identification that distin- 
quishes this record from any other master 
record. Detail records used to update the 
masters should contain an identification 
field that identifies a detail record with 
a master record. For example, astronomers 
might have assigned unique numbers to some 
Stars, and they wish to collect data for 
each star on a data set. The unique number 
for each star can be used as identification 
for each master record, and any detail 
record used to update a master record for a 
star would have to contain the same number 
as that of the star. 


A FORTRAN program indicates which record 
to FIND, READ or WRITE by its’ record 
position within the data set. The ideal 
Situation would be to use the unique record 
identification as the record position. 
However, in most cases this is impractical. 
The solution to this problem is a randomiz- 
ing technique. A randomizing technique is 
a function which operates on the identifi- 
cation field and converts it to a record 
position. For example, if six-digit num- 
bers are assigned to each star, the random- 
izing technique may truncate the last two 
digits of the number assigned to the star 
and use the remaining four digits as a 
record position. For example, star number 
383320 would be assigned position 3833. 
Another example of a randomizing technique 
would be a mathematical operation performed 
on the identification number, such as 
squaring the identification number and 
truncating the first four digits and the 
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Figure 47. Record Chaining 


last four digits of the result. Then the 
record for star number 383320 is assigned 
record position 3422. There is no general 
randomizing technique for all sets of iden- 
tification numbers. The programmer must 
devise his own technique for a given set of 
identification numbers. 


Two problems arise when randomizing 
techniques are used. The first problem is 
that there may be a lot of space wasted on 
the volume. The solution in this instance 
must be developed within the randomizing 
technique itself. For example, if the last 
two digits on the identification numbers 
for stars are truncated and no star numbers 
begin with zero, the first thousand record 
positions are blank. Then a step should be 
added to the randomizing technique to sub- 
tract 999 from the result of the trunca- 
tion. 


The second problem is that more than one 
identification may randomize to the same 
record location. For example, if the last 
two digits are truncated, the stars iden- 
tified by numbers 383320, 383396, and 
383352 randomize to the same record loca- 
tion - 3833. Records that randomize to the 
same record location are called synonyms. 
This problem can be solved by developing a 
different randomizing technique. However, 
in some situations this is difficult, and 
the problem must be solved by chaining. 


Chaining is arranging records in a 
string by reserving an integer variable in 
each record to point to another record. 
This integer variable will contain either 
an indicator showing that there are no more 


records in this chain, or the record loca- 
tion of the next record in the chain. 
Records chained together are not adjacent 


to each other. 
for star numbers 
383352. 


Figure 47 shows the records 
383320, 383396, and 


first 


chained, the 
record encountered for a record position is 
written in the record position that result- 
ed from randomizing the identification num- 


When records are 


that then randomize to 
written 


ber. Any records 
that same record location must be 
in record positions to which no other 
record identifications randomize. The 
Space for these synonyms can be allocated 
either at the end or the beginning of the. 
data set. However, this space must be 
allocated when the data set is first writ-_ 
ten. For example, if the randomizing tech- 
nique assigns master records to record 
locations between 1 and 9999, the program- 
mer may wish to reserve record locations 
10000 to 12000 for master records that 
become synonyms. 


The programmer must keep a record 1oca- 
tion counter to keep track of the space 
assigned for synonyms. When a synonym is 
inserted in this space, the record location 
counter must be incremented. The program- 
mer should set up a dummy record in his 
data set to maintain this record location 
counter. When the direct access data set 
is created, the record location counter 
should be set at the lower limit of the 
record positions available for synonyms 
(i.e., record location 10000 in the example 
used above). 


Also an indicator should be reserved to 
indicate to the program that the end of a 
chain has been reached. Since no record 
position is designated as 0, 0 can be used 
to indicate the end of a chain. 


Before a FORTRAN program writes a direct 
access data set for the first time, the 
data set must be created by writing 
“skeleton records" in the space that is to 
be allocated for the direct access data 
set. These skeleton records should be 
written by an installation-written program. 
After the skeleton records are written, the 


Programming Considerations 71 


direct access data set must be classified 


as OLD in the DISP parameter of the DD 
statement. However, if the skeleton 
records are not written before direct 


access records are written by the FORTRAN 
program for the first time, a FORTRAN load 
module automatically creates the data set 
and writes the skeleton records. The pro- 
grammer indicates that skeleton records 
have not been written by specifying NEW in 
the DISP parameter. A FORTRAN load module 
writes skeleton records according to the 


format described in “WRITE -- Create a 
Direct Organization Data Set - Format F 
Records" in "Section 3, Basic Sequential 


Access Method (BSAM)" in the Control Pro- 
qram Services publication. 


Figure 48 shows a block diagram of the 
logic that can be used to write a direct 
access data set for the first time. The 
block diagram does not show any attempt to 
write skeleton records. 


Example 3 in Appendix B shows a program 
and job control statements used to update a 
direct access data set. 


In a job that creates a data set that 
will reside on a direct-access device, the 
DCB subparameter of the DD statement must 
specify DSORG = DA in order that the label 
that is created will indicate that this is 
a direct-access data set (see “Creating a 
Direct Data Set" in the publication IBM 


System/360 Operating System: Supervisor and 
Data Management Services, Form C28-6646). 


allocated in the SPACE 
parameter of the DD statement for a data 
set written on a direct access volume. For 
direct access data sets, the space allocat- 
ed in the SPACE parameter should be consis- 
tent with the record length and number of 
records specified in the DEFINE FILE state- 
ment in the FORTRAN program. For example, 
in the DEFINE FILE statement 


Space must be 


DEFINE FILE 8(1000,40,E,I) 


the number of records is specified as 1000 
and the record length is specified as 40. 
When this program is executed the DD state- 
ment for this data set should contain the 
SPACE parameter 


SPACE= (40, (1000) ) 


indicating that space is allocated for 1000 
records, and 40 bytes for each record. 


The DEFINE FILE statement for a data set 
must be in a source module in the root 
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| segment (1.e., 


Operations unless the 


it cannot be overlaid), but 
does not have to be in the same source 
module in which I/O operations occur. For 
example, the DEFINE FILE statement can be 
given in a main program with a subprogram 
performing the I/O operations on the data 
set. However, if an associated variable 
defined in the main program is to be used 
by a subprogram, it must be passed to the 
Subprogram in COMMON. Since an associated 
variable is updated by input/output opera- 
tions, the subprogram cannot get to the 
updated value to make use of it in its 
associated variable 
is in COMMON. 


The FIND statement permits record 
retrieval to occur concurrently with compu- 
tation or I/O operations performed on dif- 
ferent data sets. By uSing the FIND state- 
ment, load module execution time can be 
decreased. For example, the statements 


10 A=SQRT(X) 


52 E=ALPHA+BETA*SIN(Y) 
64 WRITE(9)A,B,C,D,E 
76 READ(8"'101)X,Y 


are inefficient because computations are 
performed between statements 10 and 52 and 
an I/O operation is performed on another 
data set while record number 101 could be 
retrieved. If the following statements are 
substituted, the execution of this module 
becomes more efficient because record num- 
ber 101 is retrieved during computation and 
I/O operations on other data sets. 


5 FIND(8*'101) 
10 A=SQORT(X) 


52 E=ALPHA+BETA*SIN(Y) 
65 WRITE(9)A,B,C,D,E 
76 READ(8'101)x,Y 


COMPILER RESTRICTIONS 


e The maximum level of nesting for DO 
loops and implied DOs is 25. 

e The maximum number of expressions that 

can be nested is 100. 


e The maximum level of nested references 
in an arithmetic statement function 
definition to another statement func- 
tion or a function subprogram is 25. 


DEFINE FILE 
Allowing enough 
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Figure 48. Writing a Direct Access Data 
Set for the First Time 
e The maximum number of source cards for 


one compilation is dependent upon the 
amount of storage available to the 
compiler. A 400 statement program will 


require approximately 90K bytes in PCP 
or MFT systems and 100K bytes in MVT 
systems. 


e The maximum number of contiguous com- 
ment and/or continuation cards after 
the first statement is 49. There is no 
restriction on the number of comments 
at the beginning of the deck. 


LIBRARY CONSIDERATIONS 


The FORTRAN library is a group of sub- 
programs residing in the partitioned data 
set SYS1.FORTLIB. For a detailed descrip- 
tion of the FORTRAN library, see the FOR- 
TRAN IV Library Subprograms publication. A 
programmer can change the subprograms in 
the library; he can add, delete, or substi- 
tute library subprograms; or he can create 
his own library. These topics are dis- 
cussed in detail in the Utilities publica- 
tion. 


DD STATEMENT CONSIDERATIONS 


Several DD statement parameters and sub- 
parameters are provided for I/O optimiza- 
tion (see Figure 49). Other DD statement 
parameters are discussed in “Job Control 
Language" and “Creating Data Sets." 


Channel Optimization 


The SEP parameter indicates that I/O 
operations for specified data sets are to 
use Separate channels (channel separation), 
if possible. The I/O operations for the 
data set, defined by the DD statement, in 
which 


SEP=(ddnamel[,ddnameJ]...) 


appears, are assigned to a channel differ- 
ent from those assigned to the I/O opera- 
tions for data sets defined by the DD 
Statements "ddname". Assigning data sets 
whose I/O operations occur, at the same time 
to different channels increases the speed 
of I/O operations. 


I/O Device Optimization 


UNIT subparameters can be specified for 
device optimization. 
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E 
| SEP=(ddname[,ddname]...1) 2 


piesa 
UNIT=(AFF=ddname 


SPACE=(ABSTR, (quantity, beginning-address[,directory-quantity]) ) 


TRK 
susaLtoc=(} CYL 
average-record-length 
ddname 


(, directory-quantityl) , }stepname. ddnane ) 
stepname.procstep. ddname 


ae tee ee Se eee te DD ee Se OTE ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee es ee ee ee ee oe 


jS5This subparameter is’ the 


| 
| positional subparameters. 
ee only 


eee 49, 


VOLUME MOUNTING AND DEVICE SEPARATION: 
sn 
UNIT= (name |{P | (, DEFER} 
(, SEP=(ddnamel[,ddname]...)]) 
can be specified for volume mounting and 
device separation. The “name" and number 


of units are discussed in the section "Data 
Definition Statement." 


DEFER 
indicates that the volume(s) for the 
data set need not be mounted until 
needed. The control program notifies 


the operator when to mount the volume. 
Deferred mounting cannot be specified 
for a new output data set on a direct- 
access device. 


SEP=(ddnamel[,ddname]...) 
is used when a data set iS not 
assigned to the same access arms. on 
direct-access devices as the data sets 
identified by the list of ddnames. 
This subparameter is used to decrease 


access time for data sets and is 
meaningful only for direct-access 
devices. The operating system honors 


the request for device separation if 
possible, but ignores the SEP sub- 
parameter if an insufficient number of 


access arms are available. the SEP 
subparameter in the UNIT parameter 
provides for device separation, while 
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n|P 3) (,DEFER] (,SEP=(ddname[(,ddname]...+) 


| 

| 

| 

| 

| 

| 

| \{ CYL . 

| }|SPLIT=(n \average-record-length} , (prinary-quantity{, secondary-quantity])|) 
| 

| 

| p Cietantg nthe taken aietnaty 
| 

| 

| 


[+The maximum number of repetitions allowed is 7. 
}2If only one “ddname" is specified, the delimiting PEFCRG nese may be omitted. 
|7I£f neither "n" nor “P" is specified, 1 is assumed. 

|[“This subparameter is applicable only for direct-access devices. 

Only keyword sukparameter shown in this figure. 
remaining subparameters shown in the UNIT, SPACE, SPLIT, and SUBALLOC 


2)4% a 


All the| 
parameters arej| 


"name" is specified, the delimiting parentheses may be omitted. | 


DD Statement Parameters for Optimization 


the SEP parameter provides for channel 
separation. 
DEVICE AFFINITY: The use of the same 
device by data sets is specified by: 


UNIT=AFF=ddname 


The data set defined by the DD statement in 
which this UNIT parameter appears uses the 
Same device as the data set defined by the 
DD statement “ddname" in the current job 
step. 


Direct-~Access Space Optimization 


The SPACE parameter can be used to 
specify space beginning at a designated 
track address on a direct-access volume. 


The SPLIT or SUBALLOC parameters may be 
specified instead of SPACE to split the use 
of cylinders among data sets on a direct- 
access volume or to use space specified for 
another data set which it did not use. 
(The other SPACE parameter is discussed in 
"Creating Data Sets.") 


SPACE BEGINNING AT A SPECIFIED ADDRESS: 


SPACE= (ABSTR, quantity, beginning-address 
(,directory-quantity]) 
specifies space beginning at a 
particular track address on a direct- 


access volume. The “quantity" is the 
number of tracks allocated to the data 
set. The “beginning address" is the 
relative track address on a direct- 
access volume where the space begins. 
If the data set iS a new partitioned 
data set, the “directory quantity" 
Specifies the number of 256-byte 
blocks that are allocated to the 
directory of a new PDS. 


SPLITTING THE USE OF CYLINDERS AMONG DATA 
SETS: If several data sets use the same 
direct-access volume ina job step, proc- 
esSing time can be saved by splitting the 
use of cylinders among the data _ sets. 
Splitting cylinders eliminates seek opera- 
tions on separate cylinders for different 
data sets. Seek operations are measured in 
milliseconds, while the data transfer is 
measured in microseconds. 


,CYL 
SPLIT=(n]j, average-record-length 


, (primary-quantity 
[,secondary-quantity])]) 


is substituted for the SPACE parameter when 
the use of cylinders is split. If CYL is 
specified, “n" indicates the number of 
tracks per cylinder to be used for this 
data set. If “average record length" is 
specified, "n" indicates the percentage of 
tracks per cylinder used for this data set. 
The remaining subparameters are the same as 
those specified for SPACE in "Creating Data 
Sets." 


More than one DD statement in a step 
will use the SPLIT parameter. However, 
only the first DD statement specifies ail 


the subparameters; the remaining DD state- 
ments need only specify "n". For example: 


//STEP4 EXEC PGM=TESTFI 
//FTO08F001 DD SPLIT=(45, 800, (100, 25) ) 
//FT17F001 DD SPLIT=(35) 
//FT23F001 DD SPLIT=(20) 


ACCESSING UNUSED SPACE: Data sets in pre- 
vious steps may not have used all the space 
allocated to them in a DD statement. The 
SUBALLOC parameter may be substituted for 
the SPACE parameter to permit a new data 
set to use this unused space. 


TRK l 
SUBALLOC= (< CYL 
average-record-length J 


(primary-quantity, 

[, secondary-quantity] 

(,directory-quantity]), 

ddname l 

stepname.ddname ) 

stepname. procstep. ddname | 
The data 


taken is 
"ddname", 


set from which unused space is 

defined in the DD statement 
which appears in the step 
"“stepname." (The step must be in the 
current job.) The other Subparameters 
Specified in the SUBALLOC parameter are the 
Same aS the subparameters described for 
SPACE in "Creating Data Sets." 
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SYSTEM OUTPUT 


The compiler, linkage editor, and load 
module produce aids which may be used to 
document and debug programs. This section 
describes the listings, maps, card decks, 
and error messages produced by these compo- 
nents of the operating system. 


COMPILER OUTPUT 


A listing of the source statements, a 
table of the source module names, an object 
module listing, and an object module card 
deck will be generated by the compiler, 
depending on the options specified by the 
user. Source module diagnostic messages 
are also produced during compilation. 


M 
nou SAMPLE PROGRAM 


PROGRAMMER 


























|| || S| FORMA 
Ce Weir | 

|| 16] ITF\C109O- 7 
|| | MT WRITITE' 














*& stondard card form, IBM electro 888157 


Figure 50. Sample FORTRAN IV Program 
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Source Listing 


If the SOURCE option is specified, the 
source listing is written in the data set 
specified by the SYSPRINT DD statement. An 
example of a source module listing is shown 
in Figure 51. This printout is the source 
listing of the sample program illustrated 
in Figure 50. 


(This program will be used throughout 
pur- 


poses of example illustration.) 
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Storage Map 


If the MAP option is specified, a table 


is generated for each of seven classifica- 
tions of variables used in the source 
module. Each table contains the names’ and 


locations of variables used in that partic- 
ular context. The classifications are as 
follows: 


COMMON variables 


e EQUIVALENCE variables 
e Scalar variables 

e Array variables 

e Subprograms called 

e NAMELIST variables 


e FORMAT statements 


PRIME NUMBER PROBLEM 
100 wRITE (6,8) 


Separate maps are produced for each 
classification, with the appropriate head- 
ing preceding the data. The variable 
names, statement labels or subprogram names 
are arranged across the page; six to a 


line. However, storage maps of variables 
not used in the source module are not 
produced. 


Figure 52 is an example of a storage map 
produced for the sample program in Figure 
50. 


Object Module Listing 


If the LIST option is specified, an 
object module listing is produced. An 
example of an object module listing is 
given in Figure 53. 


8 FORMAT (52H FULLOWING IS A LIST OF PRIME NUMBERS FROM 1 TO 1000/ 


11i9X_,1H1/19X, 1H2/19X,1H3) 
101 1=5 
3 A=I 
102 A=SQKT(A) 
103 J=A 
104 DO 1l K=3sJ3z2 
105 L=I/K 
106 IF(L*¥K~1)1,254 
CONT INUE 
107 wRITE (6,5)1 
FOKMAT (120) 
l=I+2 
IF (1000-1) 7943 
WRITE (6,9) 
FORMAT (14H PKOGRAM ERROR) 
WRITE (6,6) 


FORMAT (31H THIS IS THE END GF THE PROGRAM) 


STOP | 
END 


Figure 51. Source Module Listing 


SCALAR MAP 
SYMBCL LOCATION SYMBOL LOCATION SYMBOL 
I BC A CO J 


SUBPROGRAMS CALLED 
SYMBCL LCCAT ION SYMBUL LOCATION 
I BCOM= DO SQRT D4 


SYMBOL 


FORMAT STATEMENT MAP 
SYMBCL LOCATION ~ SYMBOL LOCATION SYMBOL 
8 oC 5 126 9 


Figure 52. Storage Map 
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SYMBOL LOCATICN 
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SYMBOL LOCATION 
C4 K C8 


SYMBOL LOCATION SYMBOL LOCATION 


LOCATION LOCATION 


13C 


SYMBOL 


SYMBOL 
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12A 
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LOCATION 


CO0000 
COCO04 
CCcodsé 
Q0000C 
000010 
CO0014 
CCO016 
OGOO1A 
CCOOLE 
000022 
000024 
CC0028 
00002C 
000198 
Yvo019C 
0001A0 
0001A4 
OOC1A8 
OOOLAA 
OVOO1AE 


“CCO1LEO 


Figure 53. 
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C001B2 
000186 
CC0188 
OOO1BKC 
Occ1COo 
0001C4 
0001C8 
COO1CC 
000100 
000104 
CO001D8 
QO0O01CC 
GOOOIDE 
COO1E2 
COC1lEG 
COO1LEA 
COOLEC 
COOlEE 
ODOO1F2 
OOO1F4 
CCO1F8 
COULFC 
0C0200 
CC02C2 
000206 
CCO208 


00020C 
CCOQ210 
000214 
C00zZ18 
COO021A 
OC021C 
000220 
000222 
0C0226 
Q00022A 
COO22E 
CCG232 
C00236 
00023A 
CO023E 
000242 
CC0246 
OCOZ4A 
00024C 
0cC250 
000252 
000256 
C00258 
00025C 
0C0260 
000264 
000268 
CO026C 


STA NUM LABEL 

A36 

A20 

1 100 

3 101 
4 3 

5 102 

6 103 

7 104 

L44 

8 105 

9 106 
10 l 

11 107 


Object Module Listing (Part 1 of 2) 


BAL 


BAL 
ST 
LPR 


LD 
AD 
LTK 
BALR 
bL 
LCODK 
STE 
LA 


BALR 
STE 
SDR 
LE 


AW 
STD 


LTOR 
BALR 
BC 
LCR 
ST 

L 

ST 

L 
SRDA 
D 

ST 

L 

M 

S 
LTR 
t 
BCR 
L 
BCR 
L 

L 

LA 

L 
BXLE 
L 


OPEKAND 
15+12(0,15) 
O06D4C1C9 
D5404C40 | 
14,12,12(13) 
213740(15) 
4,13 
13736(0,15) 
1378(0,4) 
344,0(13) 
1592 
cooacdo00od 
00000000 
00000000 
13,4(0,13) 
14,12(0,13) 
2:12,;28(13) 
12(13),255 
155914 
15,160(C0,13) 
12,13 

13494 
14164(6,15) 
13,12 
15+160(0,13) 
1494(9,15) 
00000006 
OOOCOODC 
15+160(0,13) 
14,16(0;,15) 
0,344(0,15) 
0,140(0;13) 
0,140(0,13) 
1,0 

1 »324(0,13) 
0»320(0,13) 
6 +304(0,13) 
0,0 

14,0 
11,;6(0,14) 
0,0 
0+144(0,13) 
1,168(0,13) 
15+164(0,13) 
14,15 
0,144(0,;13) 
0,0 
0+144(0,13) 


0,336(0,13) 
0,328(0;13) 
O,332(0:913) 
0,0 

1430 
11+6(0,14) 
0,0 
0:148(0,13) 
0+348(0,13) 
0,152(0,13) 
0,140(0,13) 
0,32(0) 
07152(0,13) 
1,156(0,13) 
1,156(0,13) 
067152(0,13) 
1,140(0,13) 
1,1 
14,104(0,13) 
8114 
14,108(0,13) 
2314 
0:152(0;13) 
1,116(0;13) 
212(0,0) 
3+148(0;13) 
0+2,0(1) 
15,160(0,13) 


PCD OPERAND 


A4 
A20 
A36 


IBCGM= 


I6COM= 


IBCOM= 


Sa KETO A me A 


N 


144 


IBCOM= 


ccu270 
000274 
0C0278 
Gooz7C 
000280 
000284 
co0288 
00028C 
000290 
0c0294 
000298 
GCC2SC 
COO02A0 
000zA2 
COO2A6 
0002A8 
0002AC 
O002AE 
ooczB2 
000284 


000288 
0002BC 
cco2C0 
CG02C4 
0002C8 
Ocd2CC 
000200 
COO2C4 
Q002D8 
COO02CC 
CCC2E0 
OGO2ZE4 


14°4(0,15) 
co0000006 
00000126 
15,160(0,13) 
1448(0,15) 
0450D08C 


14,16(0,15) 


0,140(0,13) 
0,352(0,13) 
0,;140(0,13) 
0+356(0,13) 
0+140(0,13) 
0;0 
14,112(0,13) 
4514 
14,96(0,13) 
2914 
153160(0,13) 
0,0 
14+4(0,15) 


0000C006 
OOOCO12A 
14,16(0,15) 
15+160(0,13) 
14,;4(0715) 
000C0006 
0006013C 
14+16(0,15) 
15,160(0,13) 
14,52(C,15) 
05404040 
40FO 


TOTAL MEMORY REQUIREMENTS OOOZE6 BYTES 





Figure 53. Object Module Listing (Part 2 of 2) 


Object Module Card Deck 


If the DECK option is specified, an 
object module card deck is produced. This 
deck is made up of four types of cards -- 
TXT, RLD, ESD, and END. A functional 
descrivtion of these cards is given in the 
following paragraphs. 


OBJECT MODULE CARDS: Every card in the 
object module deck contains a 12~-2-9 punch 
in column 1. The identifier consists of 
the characters ESD, RLD, TXT or END in 
columns 2 through 4. The first four char- 
acters of the name of the program are 
placed in columns 73 through 76 with the 
sequence number of the card in columns 
77-80. 


ESD CARD: Four types of ESD cards are 
generated, as follows: 


ESD, type 0 - contains the name of the pro- 


ESD, type 1 - 


gram and indicates the begin- 
ning of the object module. 
The name is the module name 
followed by a #. 


contains the entry point 
(where control is given to 
begin execution of the 
module). The entry point is 
the module name on a SUBROU- 
TINE or FUNCTION statement, 
or the name Specified in the 
NAME option, or the name 
MAIN. 
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ESD, type 2 - contains the names of subpro- 
grams referred to in the 
source module by CALL state- 
ments, EXTERNAL statements, 
explicit function references, 


and implicit function ref- 
erences. 
ESD, type 5 —- contains information about 


each COMMON block. 
The number 0, 1, 2, or 5 is placed in card 
column 25. 


RLD CARD: An RLD card is generated for 
external references indicated in the _ ESD, 
type 2 cards. To complete external ref- 
erences, the linkage editor matches the 
addresses in the RLD card with external 
symbols in the ESD card. When external 
references are resolved, the storage at the 
address indicated in the RLD card contains 
the address assigned to the subprogram 
indicated in the ESD, type 2 card. RLD 
cards are also generated for a branch list 
produced for statement numbers. 


TXT CARD: The TXT card contains the con- 
stants and variables used by the programmer 
in his source module, any constants and 
variables used by the programmer in his 
source module, any constants and variables 
generated by the compiler, coded informa- 
tion for FORMAT statements, and the machine 
instructions generated by the compiler from 
the source module. 


END CARD: One END card is generated for 
each compiled source module. This card 


indicates the end of the object module to 
the linkage editor, the relative location 
of the main entry point, and the length (in 
bytes) of the object module. 


Figure 54 


OBJECT MODULE DECK STRUCTURE: 
FORTRAN object module deck 


indicates the 
structure. 


Source Module Diagnostics 


Two types of diagnostic messages are 
written by the compiler -- error/warning 
“messages and status. 
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Figure 54. Object Module Deck Structure 


Source Module Error/Warning Messages: The 
error/warning messages produced by the com- 
piler are noted on the source listing 
immediately after the statement in which 
they occur. A maximum of four messages 
appears on each line. Figure 55 ilius- 
trates the format of the messages as they 
are written in the data set specified by 
the SYSPRINT DD statement. 





There are two types of error/warning 
messages: serious error messages, and warn- 
ing messages. The seriouS error messages 
have a condition code of eight and the 
warning messages a code of four or zero. 


For a description of error/warning mes- 
Sages, see Appendix D. 


eee EO ePIC re ane eee ee 
XX = A+B+t-C/(X**3-A*#-75) 
$ S 


n) y message, n) y message 
Where: n 


tional occurrence of the error on 
each card. 


is an integer noting the posi- 


y is a 1-to-3 digit message num- 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| ber in IEYxxxI format. 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| 


$ is the symbol used by the 
compiler for flagging the partic-| 
ular error in the statement (this] 
Symbol is always noted on the| 
line following the source state-| 
ment and underneath the error). | 


message is the actual message| 

printed | 
sie Aleta a ate ea ae a ae ee ee J 
Figure 55. Format of Diagnostic Messages 


Status Messages: During operation of the 
compiler, messages may occur which indicate 
termination of compilation. These messages 
are noted as a result of internal compiler 
errors which render continuation of compi- 
lation impossible. These messages are ter- 
Minal error messages and have a condition 
code of 16. For a description of these 
messages see Appendix D. 


LINKAGE EDITOR OUTPUT 


The linkage editor produces a map of a 
load module if the MAP option is specified, 
Or a map and a cross-reference list if the 
XREF option is specified. The linkage 


editor also produces diagnostic messages, 
which are discussed in the Linkage Editor 
publication. 


CONTROL SECTION ENTRY 


NAME ORIGIN LENGTH NAME LOCATION 
MAIN # 00 2E6 

MAIN 00 
IECFCCME* 2E8 

IBCOM= 2E8 
THCSSQRT* 12A0 

SQRT- 12A0 
IFCFCVTE* 1350 . 
ADCON= 1350 
FCVIO. 18D8 
IHCFIOSH* 2340 ; 

FIOCS= 2340 


THCUATBL* 2F70 


Figure 56. Module Map 


FCVZO 149C 
FCVEO 1072 





Module Map 


The module map is written in the data 
set specified in the SYSPRINT DD statement 
for the linkage editor. To the linkage 
editor, each program (main or subprogram) 
and each COMMON (blank or named) area is a 
control section. 


Each control section name iS written 
along with origin and length of the control 
section. For a program and named COMMON, 
the name is listed; for blank COMMON, the 
name S$BLANKCOM is listed. The origin and 
length of a control section is written in 
hexadecimal numbers. A segment number is 
also listed for overlay structures (see the 


Linkage Editor publication). 


For each control section, any entry 
points and their locations are also writ- 
ten; any functions called from the data set 


specified by the SYSLIB DD statement are 


listed and marked by asterisks. 


The total length and entry point of the 
load module are listed. 


Figure 56 shows a load module map for 
the Sample Program shown in Figure 50. 


Cross-Reference List 


If the option xXREF is specified, a 
cross-reference list is written with the 
module map. This cross-reference list 


gives the location from which an external 


reference is made, the symbol externally 
referenced in this control section, the 
control section in which the symbol 
appears, and the segment number of the 
control section in which the symbol 
appears. Unless the linkage edito is 
building an overlay structure, the cross- 


reference list appears after the module map 
for all control sections. | 


NAME LOCATION 


NAME LOCATION © 


LOCATION 


FOIOCS= 


FCVAO 1542 FCVLO 


FCVCO 1F6C 
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Figure 57 shows the cross-reference list 
for the Sample Program shown in Figure 50. 


LCCATION REFERS TO SYMBOL IN CONTROL SECTION 


IHCFCGMH 
THC SSQRT 
IHCFCVTH 
IHCFIOSH © 
IHCFCVTH 
IHCFCVTH 
IHCFCVTH 
IHCFCVTH 
IHCFCVTH 
IHCFCVTH 
THCFCCMH 
IHCFCOMH 
THCUATBL 
IHCFCOMH 


IBCOM= 
SQRT 
ADCON= 
FIOC S= 
FC VEO 
FCVLO 
FCVIO 
FC VCO 
FCVAQ 
FCVZO 
I6BCOM= 
IBCOM= 
THC UATBL 
IBCOM= 
ENTRY ADDRESS 00 
TOTAL LENGTH 3078 





Linkage Editor Cross-Reference 
List 


Figure 57. 


LOAD MODULE OUTPUT 


The programmer defines the output data 
sets for load module execution in READ, 
WRITE, and FORMAT statements. At execution 
time, FORTRAN load module diagnostics are 
generated in three forms -- error code 
diagnostics, program interrupt messages, 
and operator messages. An error code indi- 
cates an input/output error or a misuse of 
a FORTRAN library function. A program 
interrupt message indicates a condition 
that is beyond the capacity of System/360 
to correct. An operator message is gener- 
ated when a STOP or PAUSE is executed. 


Error Code Diagnostic Messages and 


If an error is detected during execution 
of a FORTRAN load module, a message and a 
diagnostic traceback are written in the 
error message data (see “FORTRAN Job 
Processing"). The message is of the form: 


IHCxxxI (message text] 


TRACEBACK FOLLOWS ROUTINE ISN REG. 14 


where: 
XXX 1S a 3-digit error code 


These error codes are described in Appendix 


D. The traceback, which follows the error 
message, is a 1ist of routines in the 
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direct line of call to the routine in 
error, in reverse order of use. After the 
traceback is completed for error message 
IHC2181, control is passed to the statement 
designated in the ERR parameter of the 
FORTRAN READ statement if that parameter 
was specified. In all other cases, execu- 
tion of the job step is terminated and a 
condition code of 16 is returned to the 
operating system. 


Each entry in the traceback contains the 
name of the called routine, an internal 
statement number (ISN) from the calling 
routine (if one was generated for that 
call), and the contents, in hexadecimal, of 
register 14 (which indicate the point of 
return to the calling routine). 


The first routine listed in the trace- 
back is the one that called the library 
subprogram in which the error occurred, 
except when the name given is IBCOM. Then, 


the error could have occurred in IHCFCOMH 
or one of the routines that it calls: 
LHCFCVTH, IHCNAMEL IHCDIOSE, or IHCFIOSH. 


The error code in the message indicates the 
actual origin of the error. 


Note: For an assembler language program or 
Subprogram, the routine name field in the 
traceback will contain the identifier spec- 
ified in the SAVE macro instruction or 
equivalent coding. (If the identifier 
specified is longer than eight characters, 
only the first eight will appear.) If no 
identifier is specified, the traceback rou- 
tine name field will be blank or have 
content meaningless for the traceback. 


Internal statement numbers are generated 
for function references and calls when the 
ID option is specified on the EXEC card at 
compile time. These numbers appear in the 
traceback, except for FORTRAN calls to 
IBCOM for which internal statement numbers 
are not generated. 


For an assembler language program or 
Subprogram, the internal statement number 
field will contain the value of the binary 
calling sequence identifier specified in 
the CALL macro instruction or equivalent 
coding. If no identifier was specified, 
the field will be blank or its contents 
will be meaningless in the traceback. 


If the traceback cannot be completed, 
the message TRACEBACK TERMINATED is issued 
and the job step is terminated. This 
message will appear only if (1) 13 names of 
subprograms appear in the traceback or (2) 
a calling loop has been detected, e.g., 
subprogram A calling B calling A. 


l IHC2191 

TRACEBACK FOLLOWS ROUTINE 
IBCOM 

| MASTR 

l PAYROLL 
l ENTRY POINT = 5000 

Dai a a a a a ee ee css ele a es ee ee 


: 
| 
ISN REG. 14 | 
820068FC 

00005378 | 

00003148 l 

: 


Figure 58. Sample Traceback for Execution-Time Errors 


At the end of the traceback, whether it 
was completed or not, the entry point of 
the main FORTRAN program is given, in 
hexadecimal. 


Figure 58 shows the traceback informa- 
tion placed in the error message data set 
for the following example. 


Example: A FORTRAN program PAYROLL calls 
the subroutine MASTR, which contains a READ 
Statement. The IHCFIOSH routine is called 
to perform the input operation, but an 
error condition arises because there is no 
DD statement for the data set. 

Explanation: PAYROLL was entered at loca- 
tion 5000 and called MASTR. IBCOM (in this 
case, the error Occurred in the IHCFIOSH 
routine) would have returned to location 
68FC in MASTR; MASTR would have returned to 
location 5378 in PAYROLL, and PAYROLL would 
have returned to location 3148 in the 
supervisor. Execution terminates and a 
condition code of 16 is returned to the 
Operating system. 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are 
praduced when one of the following occurs: 

@ Protection Exception (4) 

e Addressing Exception (5) 

e Specification Exception (6) 

e Data Exception (7) 

e Fixed-Point Divide Exception (9) 
e Exponent-Overflow Exception (C) 


e Exponent-Underflow Exception (D) 


® Floating-Point Divide Exception (F) 


The characters in parentheses following the 
exceptions are PSW codes that appear in the 
program interrupt message to indicate the 
type of exception. Appendix D contains a 
complete description of the message. 


The program interrupt messages are writ- 
ten on a data set specified by the program- 
mer. (See “FORTRAN Job Processing".) 
Operator intervention is not required for 
any of these interruptions. 


ABEND Dump 


If a program interrupt occurs that caus- 
es abnormal termination of a load module, 
an indicative dump is given (i.e., only the 
contents of Significant registers, indica- 
tors, etc., are dumped). However, if a 
programmer adds the statement 


/4/GO.SYSABEND DD SYSOUT=A 


to the execute step of a cataloged proce- 
dure, main storage and significant. reg- 
isters, indicators, etc., are dumped. (For 
information about interpreting an ABEND 


dump, see the Control Program Messages, 


Completion Codes, and Storage Dumps publi- 
cation. 


Operator Messages 


A message is transmitted to the operator 
when a STOP or PAUSE iS encountered during 
load module execution. Operator messages 
are written on the device specified for 
operator communication. For a description 
of these messages, see Appendix D. 
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APPENDIX A: INVOKING THE FORTRAN COMPILER 


FORTRAN can be invoked by ae problem separated by a comma. No blanks 
program through the use of the CALL, should appear in the list. 
ATTACH, Or LINK macro-instructions. 


The program must supply to the FORTRAN ddnameaddr 


compiler: specifies the address of a variable 
length list containing alternate 
e The information usually specified in ddnames for the data sets used during 
the PARM parameter of the EXEC state- FORTRAN compiler processing. This 
ment. address is supplied by the invoking 
program. If standard ddnames are 

e The ddnames of the data sets to be used used, this operand may be omitted. 

during processing by the FORTRAN com- 

piler. The ddname list must begin on a half- 


word boundary (one that is not also a 
full-word boundary). The two high- 


r------ Y--------- {o------- - - - - - - - -- - - --- --- 1 order bytes contain a count of the 
| Name Operation|Operand | number of bytes in the remainder of 


4 
es \ | EP=IEYFORT eight bytes must be left justified and 
PARAM= (optionaddr padded with blanks. If an alternate 
ddname iS omitted from the list, the 


| 

| ) 

| standard name is assumed. If the name 
| 

| 

J 


| 
,------ 4—-—---—--—--4---~—~-~-—~----~—-—-~------— 4 the list. Each name of less’ than 
| 
| (,ddnameaddr]),VL=1 
| 


is omitted within the list, the 8-byte 
entry must contain binary zeros. 
Names can be omitted only from the end 


| 
| 
| LEYFORT 

| PARAM=(optionaddr 
| (,ddnameaddr]),VL 
1 


of the list. 
The sequence of the 8-byte entries in 
optionaddr the ddname list is as follows: 
specifies the address of a variable 
length list containing information Entry Alternate Name 
usually specified in the PARM parame- 1 SYSLIN 
ter of the EXEC statement 2 00900000 
3 00000000 
4 00000000 
The option list must begin on a half- 5 SYSIN 
word boundary (one that is not also a 6 SYSPRINT 
full-word boundary). The two high- 7 SYSPUNCH 
order bytes contain a count of the 
number of bytes in the remainder of VL=1 
the list. If there are no parameters, - specifies that the sign bit of the 
the count must be zero. The option last full-word of the address parame- 
list is free form with each field ter list is to be set to 1. 
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APPENDIX B: EXAMPLES OF JOB PROCESSING 


ES ee eS NY Se MO ee 


The following examples show several 
methods to process load modules. 
Example 1: 
Problem Statement: A previously 
created and cataloged data set 


SCIENCE.MATH.MATRICES contains a set of 80 
matrices. Each matrix iS an array contain- 
ing real variables. The size of the matri- 
ces varies from 2x2 to 25x25; the average 


size is 10x10. The matrices are inverted 
by a load module MATINV in the PDS MAT- 
PROGS. Each inverted matrix is written 


(assume FORMAT control) as a single record 
on the data set SCIENCE.MATH.INVMATRS. The 
first variable in each record denotes the 
size of the matrix. 


The I/O flow for the example is shown in 
Figure 59. The job control statements used 
to define this job are shown is Figure 60. 








SCIENCE, 
MATH. 
INVMATRS 









MATINV 











Printed 
Output 


Figure 59. Input/Output Flow for Example 1 
Explanation: The JOB statement identifies 
the programmer as JOHN SMITH and _ supplies 
the account number 537. Both control 
statements and control statement error mes- 
Sages are printed on the SYSOUT data set. 


The JOBLIB DD statement indicates that 
the private library MATPROGS is concatenat- 
ed with the system library. 

The EXEC statement indicates that the 
load module MATINV is executed. 


DD statement FTO8FO001 identifies the 
input data set, SCIENCE.MATH.MATRICES. (In 
the load module, data set reference number 
8 is used to read the input data set.) 
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variable-length record for this 


Because this data set has been previously 
created and cataloged, no information other 
than the data set name and disposition has 
to be supplied. 


DD statement FT10F001 identifies the 
printed output. (In the load module, data 
set reference number 10 is used for printed 
output.) The data set iS written on the 
class of devices specified in the SYSOUT 
parameter. 


DD statement FTO4YFO01 defines the output 
data set. (In the load module, data set 
reference number 4 is used to write the 
data set containing the inverted matrices.) 
Because the data set is created and cata- 
loged in this job step, a complete data set 
Specification is supplied. 


The 
data set is 


DSNAME parameter indicates that the 
named SCIENCE.MATH.INVMATRS. 


The DISP parameter indicates that the data 
set is new and is to be cataloged. The 
SPACE parameter indicates that space is 
reserved for 80 records, 408 characters 
long (80 matrices of average size). When 
space is exhausted, space for 9 more 
records is allocated. The space iS con- 


any unused space is released, and 
ends on cylinder 


tiguous; 
allocation begins and 
boundaries. 


The 
length 
matrices vary. 
fied as 2508, 


DCB parameter indicates variable- 
records, because the size of 
The record length is speci- 
the maximum size of a 
applica- 


tion. (The maximum size of a record in 
this data set is the maximum number of 
elements (25) in a matrix multipled by the 


number of bytes (4) allocated for an ele- 
ment, plus 4 for the variable that indi- 
cates the size of the matrix, plus 4 for 
the segment control word (SCW) that con- 
tains a count of the number of data bytes 
in the record.) The buffer length is 
specified as 2512 (the 4 extra bytes are 
for the block control word that contains 
the length of the block.) 


The SEP parameter indicates that the 
data set SCIENCE.MATH.INVMATRS should use a 
different channel from that used for data 
set SCIENCE. MATH.MATRICES. 







Sample Coding Form 












ee eee aes 21-30 3 = | I-70] SS 7i-80 
' j2[3{4[s]6j7lelslol l2]3]4[slel7 lea ol [2] ]4isl6]71s{slol [2[3/415]6{71s|slol [213[4[5]6]7 [elsif {2[314]516]7[e/9io} | [2]314]5[6]7{8}9[ol | j2}3}415/617/819/0 


(JINVERT, JOB 537. JOHNSMITH MSGLEVEL=1 | | 
//JOBLIB DD DSNAME=MATPROGS »DISP=OLD 

LIINVERT EXEC PGM=MATINV 

(1 FTG8FOO1, DD, DSNAME=SCTENCE.MATH MATRICES »D15P=OLD 

//FTAGFOO1, OD SYSOUT=A 7 


/IFTOUFOG1, DD DSNAME=SCIENCE -MATH-INVMATIRS®9 L 
iI DISP=(NEWsCATLG,) 9UNIT=DACLASS 3VOLUME=SER=1089W 4 2 
if SPACE=(UG89 (8099) 9 RLSE9 CONTIG 2 ROUND) »SEP=FTG8FOG14 3 


// DCB=(RECFM=VB,LRECL=9685BLKSI ZE=27 28) 


Figure 60. Job Control Statements for Example 1 












Sample Coding Form 


TSTSTaISTSTSTSTS N= 20 2ai-30 {C3 Paso | i-cGo_sT SC si-7o_—F—C*|; =SESC“i7i-80_——s*' 
213[4]5]6|71819[0] | [2[3|4|5|6|71819 10} T2[3/4[s\6l7[8[9[ol 21314 [s16[718[9o[ [e[sT4[s|6{rTel9{ol [21314 1s |e]? Ts[s lol l2]3}4|slel7]8]9)o] 1 J2]3]4]5]6)7]6]9]o 


|J//TESTFIRE, JOB »JOHNSMITH»MSGLEVEL =) 

J/JOBLIB, DD, DSNAME=FIRING»DISP=(OLD»PASS)), | 

// FTAGFOG1, DD. DSNAME=RAWDATASDISP=OLD 
//FT14FOO1, DD DSNAME=PROJDATA9DISP=O0LD | 


//FT12FOG1, DD DSNAME=GREFDATA2DISP=(NEWsPASS) »UNIT=TAPECLS > | el 
// VOLUME=( RETAINS SER=2107).9 2 


// DCB=(DEN=2.RECFM=F 9BLKSIZE=4GQ) 7 


/ISTEP2 EXEC PGM=ANALYZ 
//FTA8FOG1, DD DSNAME=PARAMS »DISP=OLD | 

//FT2GFQO1, DD DSNAME=SVALUES 9D0,1SP=(NEW>sPASS) 9UNIT=TAPECLS5 ee | 
// DCB=(DEN=2, RECFM=F 9 BLKSIZE=204) s VOLUME=SER=2108 

// FTG8FOG1, OD DSNAME=X-STEP2.F12GFGO19DISP=OLD 

LI FTAOF ODA DD_UNIT=PRINTER 





Figure 61. Job Control Statements for Example 2 


Example 2: | against a forecasted result, PROJDATA. The 
Output of PROGRD is a data set 6&REFDATA, 
which contains the refined data. 


Problem Statement: A previously created 
data set RAWDATA contains raw data from a The refined data is used to develop 


test firing. A load module PROGRD refines values from which graphs and reports can be 
data by comparing the data set RAWDATA generated. The load module ANALYZ contains 
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' 2107 is used for this data 


a series of equations and uses a previously 
created and cataloged data set PARAMS which 
contains the parameters for these equa- 
tions. ANALYZ creates a data set &VALUES, 
which contains intermediate values. 


These values are used aS input to the 
load module REPORT, which prints graphs and 
reports of the data gathered from the test 
firing. Figure 1 in the "Introduction" 
shows the I/O flow for the example. Figure 
61 shows the job control statements used to 
process this job. 


The load modules REFDAT, ANALYZ, and 
REPORT are contained in the private library 
FIRING. 


Explanation: The JOB statement indicates 
the programmer's name, JOHN SMITH, and that 
control statements and control statement 
error are printed on the console typewrit- 
er. 


The JOBLIB DD statement indicates that 
the private library FIRING is concatenated 
with the system library. 


The EXEC statement STEP1 defines the 
first job step in the job and indicates 
that the load module PROGRD is executed. 


The DD statements FT10F001 and FT1I1F001 
identify the data sets containing raw data 
(RAWDATA) and the forecasted result 
(PROJDATA), reSpectively. 


DD statement FT12F001 defines a tempora- 
ry data set, &REFDATA, created for input to 
the second step. (In the load module, data 
set reference number 12 is used to write 
S6REFDATA.) The DISP parameter indicates 
that a data set is new and is passed. The 
data set is written uSing the device class 
TAPECLS. The VOLUME parameter indicates 
that the volume identified by serial number 
: set. The DCB 
parameter indicates that the volume is 
written using high density; the records are 
fixed-length blocked; the record length is 
400; and the buffer length is 2000. 


The EXEC statement STEP2 defines the 
second job step in the job and indicates 
that the load module ANALYZ is executed. 


DD statement FT17F001 identifies 
data set which contains refined data. The 
DSNAME parameter indicates that the data 
set name is copied from DD statement 
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the 


FT12F001 in job step STEP1. The DISP 
parameter indicates that the data set is 
deleted after execution of this job step. 
The DD statement FT18F001 identifies the 
previously created and cataloged data set 
PARAMS . 


DD statement FT20F001 defines the tem- 


porary data set 6&VALUES containing the 
intermediate values. The DISP parameter 
indicates that the data set is created in 
this step, and that it is passed to the 
next job step. The data set is written on 
volume 2108 uSing one of the devices 
assigned to the class TAPECLS. The DCB 


parameter indicates high density and fixed- 
length blocked records. Each record is 204 
characters long. 


The EXEC statement STEP3 defines the 
third job step and indicates that the load 
module REPORT is executed. 


identifies the 
intermediate values. 


DD statement FTO8F001 
data set containing 
The DSNAME parameter indicates that the 
data set name is copied from the DD state- 
ment FT20F001 in job step STEP2. 


DD statement FT1OF001 indicates that the 
data set reference number 10 is -used to 
print the reports and graphs for job step 
three. | 


Example 3: 


A data set has been created that con-~ 
tains master records for an index of Stars. 
Each star is identified by a unique six- 
digit star identification number. Each 
star is assigned a record position in the 
data set by truncating the last two digits 
in the star identification number. Because 
Synonyms arise, records are chained. 


The following conventions must be 


observed processing this data set: 


1. The star master record that contains 
the record location counter pointing 
to space reserved for chained records 
is assigned to record location 1. 


2. A zero in the chain variable indicates 
that the end of a chain has been 
reached. : 


3. The first variable in each star master 
record is the star identification 
field; the second variable in each 
Star master is the chain variable. 


YW. Each record contains six other varia- 
bles that contain information about 
that star. 


Problem Statement: Figure 62 shows a block 
diagram illustrating the logic for this 
problem. 


A card data set read from the input 
stream is used to update the star master 
data set. Each record (detail record) in 
this data set contains: 


1. The star identification field of the 
Star master record that the detail 
record is used to update. 


2. SixX variables that are to be used to 
update the star master. 
When a star detail record is read, its 


identification field is randomized, and the 
appropriate star master record is read. If 


the correct star master record is found, 
the record is to be updated. If a star 
master is not found, then a star master 


record is to be created for that Star. 


The last record in the star detail data 
set contains a Star identification number 
999999 which indicates that processing the 


Star detail data set is completed. 


Explanation: Figure 62 is similar to the 
diagram shown in Figure 48, except Figure 
62 includes blocks that describe updating 
variables in master records already present 
in the data _ set. (Figure 48 includes 
blocks describing certain operations that 
must be performed when a direct access data 
set is first written.) Also, Figure 62 is 
adapted to Example 3, while Figure 48 is 
more general. Figure 64 shows the FORTRAN 
coding for this program. 


The star master record that contains the 


record counter is read, placing the record 
location counter in LOCREC. Whenever a 
detail record is read the identification 


variable is checked to determine if the end 
of the detail data set has been reached. 
The star detail records contain the varia- 
bles A, B, C, D, E, and F. 


The identification number in the detail 
record is randomized and the result is 
placed in the variable NOREC, which is used 
to read a master record. The master record 
contains the star identification number 
(IDSTRM), a chain record location (ICHAIN), 
and six variables (T, U, V, X, Y, and 2) 
which are to be updated by the variables in 
the star detail records. IDSTRM and IDSTRD 
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Figure 62. Block Diagram for Example 3 
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are compared to see if the correct star 
master is found. If it is not found, then 
the variables containing the chain record 
numbers are followed until the correct star 
master is found or a new star master is 
created. 


Job Control Statements: 
in Figure 64 is compiled and link 


The program shown 
edited, 


Sample Coding Form 


placing the load module in the PDS STARPGMS 
and asSigning the load module the name 
UPDATE. The data set that contains the 
Star master records was cataloged and 


assigned the name STARMSTR when it was 
created. Figure 63 shows the job control 
Statements needed to execute the module 
UPDATE. 


PT =10—<«d|~S reo SC i-30—S—CsT SS i-40 dT i500 Si-6o_ssi| Ss t-70_—C—C*=|; ~S—Cii-80__—id 
21314 [5le[7Ie lio] i 2s14{s16]7[sisiol 12131415 lel? [sloop [2[3]415 {6} 7}sl9fo) 12]31415}6]7 Telsjolij2}31415]6]7]6]9]0} | }2}3}415}6}718]9]o] | J2]514{s16/7/8]910} 


/STARDAUP, JOB 3239‘J-ASTRONOMER’ »MSGLEVEL=1 


/JOBLIB DD DSNAME=STARPGMS DI SP=OLD 
/ EXEC PGM=UPDATE 


/FT@7FGO1, DD DSNAME=STARMSTR3DISP=OLD 


//FT@LFOOL, DD ¥ 
Star Detail Data Set 
/% END, OF STAR DETAILS 


Figure 63. 
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Examples of Job Processing 


Appendix B: 


APPENDIX C: ASSEMBLER LANGUAGE SUBPROGRAMS 


A FORTRAN programmer can use assembler 


language subprograms with his FORTRAN main 
program. This section describes the link- 
age conventions that must be used by the 


assembler language subprogram to communi- 
cate with the FORTRAN main program. To 
understand this appendix, the reader must 
be familiar with the Assembler Lanquage 
publication and the Assembler Programmer's 
Guide. 


SUBROUTINE REFERENCES 


ee ee gee ne 


The FORTRAN programmer can refer toa 
Subprogram in two ways: by a CALL statement 
or a function reference within an arithmet- 
ic expression. For example, the statements 


CALL MYSUB(X,Y,Z) 


I=J+K+MYFUNC(L,M,N) 


refer to a subroutine subprogram MYSUB- and 
a function subprogram MYFUNC, respectively. 


For subprogram reference, the compiler 
generates: 

1. A contiguous argument list; the 

addresses of the arguments are placed 


in this list to make the arguments 
accessible to the subprogram. 


2. A save area in which the subprogram 
can save information related to the 
calling program. 


3. A calling sequence to pass control to 
the subprogram. 


Argument List 


The argument list contains addresses of 
variables, arrays, and subprogram names 
used as arguments. Each entry in the 
argument list is four bytes and is aligned 
on a full-word boundary. The last three 
bytes of each entry contain the 24-bit 
address of an argument. The first byte of 
each entry contains zeros, unless it is the 
last entry in the argument list. If this 
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is the last entry, the sign bit in the 
entry is set to one. 
The address of the argument list is 


placed in general register 1 by the calling 
program. 


Save Area 


The calling program contains a save area 
in which the subprogram places information, 
such as the entry point for this program, 
an address to which the subprogram returns, 
general register contents, and addresses of 
Save areas used by programs other than the 
subprogram. The amount of storage reserved 
by the calling program is 18 words. Figure 
65 shows the layout of the save area and 
the contents of each word. The address of 
the save area is placed in general register 
13% 


The called subprogram does not have to 
save and restore floating point registers. 


Calling Sequence 


A calling sequence is generated to 
transfer control to the subprogram. The 
address of the save area in the calling 


program is placed in general register 13. 
The address of the argument list is placed 
in general register 1, and the entry 
address is placed in general register 15. 
A branch is made to the address in register 
15 and the return address is saved in 
general register 14. Table 14 illustrates 
the use of the linkage registers. 


CODING THE ASSEMBLER LANGUAGE SUBPROGRAM 


Two types of assembler language subpro- 
grams are possible: the first type (lowest 
level) assembler subprogram does not call 
another subprogram; the second type (higher 
level) subprogram does calli another subpro- 
gram. 
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| “AREAS =<os=>e=S>> Been ee oe ee re eS eee ee ee eee 1 | 
|} (word 1) | This word is used by a FORTRAN-compiled routine to store | | 
| | its epilogue address and may not be used by the assem- | | 
| | bler language subprogram for any purpose. | | 
| AREA+4---------- > }--------------------- +--+ +--+ +--+ +--+ + | l 
| (word 2) } If the program that calls the assembler language | | 
| | subprogram is itself a subprogram, this word.contains | | 
| | the address of the save area of the calling program; | | 
| | otherwise, this word is not used. | | 
| AREA+8---------- > ---------~----------—--- ----~--- -- - --- -- - + - + - - - - - - = | | 
| (word 3) | The address of the save area of the called subprogram. | | 
| AREA+12--------- > p----------------------+--.------- - +--+ - > 4 | 
} (word 4) | The contents of register 14(the return address). When | | 
| | the subprogram returns control, the first byte of this | | 
| location is set to ones. | | 
| AREA+16--------- > ---------------------------—- — - -- -- - = - - 4 | 
| (word 5) | The contents of register 15(the entry address). | | 
| AREA+20--------- > -----------+----+---~---- +--+ +--+ - - +--+ 5 +--+ | | 
| (word 6) { The contents of register 0. | | 
| AREA+24--------- > ---------------+--~---~+--+-++--- +--+ + - +--+ + | | 
| (word 7) | The contents of register 1. | | 
| | -------------------------------------------------------- 4 | 
| | : | | 
| | : | | 
| | | - | | 
| AREA+68--------- > p----+-+-------+------ + +--+ - +--+ + | | 
| (word 18) | The contents of register 12. | | 
l Basco ee a ee eS ee ae 4 | 
SaaS ecg see pa a Meee netic OE ST et Fe BMY TD DO NET NEY SUPE NR ESE ELH ENN ALI RENEE eR ee Oe Nay ae Ret NR ee eRe Se ae nea ES J 
Figure 65. Save Area 
Table 14. Linkage Registers 
S239 oo, oS a ae et ge ee ee ne ke a ge TY Gg ey ee er Se ee eee 1 
|Register | | | | 
|Number |Register Name _ | Function | 
}--------}---------------}-------------------------------------------------------------- { 
| 0 JResult Register|Used for function subprograms only. The result is returned in| 
| | |general or floating-point register 0. However, if the result] 
| | jis a complex number, it is returned in floating-point reg-| 
{ | {jisters 0 (real part) and 2 (imaginary part). | | 
| | |Note: For subroutine subprograms, the result(s) is returned in| 
| | Ja variable(s) passed by the programmer. | 
}-------- }--------------- }-------------------------------=------------------------------ { 
| 1 JArgument List |Address of the argument list passed to the called subprogran. | 
| |Register | | 
}--------4--------~------}----------------~--------------------------------------------- { 
| 2 |Result Register|See Function of Register 0. | 
pf | ee + + 
| 13 {Save Area | Address of the area reserved by the calling program in which 7 
| |Regqister jthe contents of certain registers are stored by the called| 
| | | program. | 
}-------- }--------------- }-------------------------------------------------------------- } 
| 14 jReturn Register|Address of the location in the calling program to which| 
| | }control is returned after execution of the called program. | 
}-------- {---------------}--------------------- +--+ -- + += -- = +--+ == 5 --- == == ----=-------- { 
15 jEntry Point |Address of the entry point in the called subprogram. | 
| {Register | | | 
| |Note: Register 15 is also used as a condition code register, a| 
| |RETURN code register, and a STOP code register. The particu-| 
| jlar values that can be contained in the register are: 
| | 16 - terminal error detected during execution of a subprogram| 
| | (an IHCxxxI message is generated) | 
| {}4*1 - a RETURN i statement is executed | 
| | n - a STOP n statement iS executed | 
| { 0 - a RETURN or a STOP statement is executed | 
Ss es tee I a en a at es tsa ce cll nd ch es es as ea Sa i sy a a a a a a a a ge a ge ee a 


Cee EE ae ee eS ee eee 
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Coding a Lowest Level Assembler Language 
Subprogram 


For the lowest level assembler language 
Subprogram, the linkage instructions must 
include: 


1. An aSsembler instruction that names an 
entry point for the subprogram. 


2- An instruction(s) to save any general 
registers used by the subprogram in 
the save area reserved by the calling 
program. (The contents of linkage 
registers 0O and 1 need not be saved.) 


3. An instruction (s) to 
"saved" registers before returning 
control to the calling program. 


4. An instruction that sets the first 
byte in the fourth word of the save 
area to ones, indicating that control 


is returned to the calling program. 


5. An instruction that returns control to 
the calling program. 


66 shows the linkage conventions 
for an assembler language subprogram that 
does not call another subprogram. In addi- 
tion to these conventions, the assembler 
program must provide a method to transfer 


Figure 


restore the 


Higher Level Assembly Language Subprogram 


A higher level assembler subprogram must 
include the same linkage instructions as 
the lowest level subprogram, but because 
the higher level subprogram calls another 
Subprogram, it must Simulate a FORTRAN 
Subprogram reference statement and include: 


1. A save area and additional instruc- 
tions to insert entries into its save 
area. 


2. A calling sequence and a parameter 
list for the subprogram that the high- 
er level subprogram calls. 


3. An assembler instruction that indi- 
cates an external reference to the 
Subprogram called by the higher level 


subprogram. 


instructions in the return 
retrieve entries in the 


4. Additional 
routine to 
Save area. 


Figure 67 shows the linkage conventions 
for an assembler subprogram that calls 
another assembler subprogram. 


In-Line Argument List 


The assembler programmer may establish 
an in-line argument list instead of out-of- 
line list. In this case, he may substitute 


arguments from the calling program and the calling sequence and argument list 
return the arguments to the calling pro- shown in Figure 68 for that shown in Figure 
gram. 67. 
pean Neale areata re Ee ee ee ge tee Se get a Te aarp ee ee ee 1 
| Name | Oper. |Operand Comments | 
eee an 6 RE eae Jp Re ee any JP re Ney IN Li ON ey ee LEN oe eed ee appa, Se ND ray eee pee a EN ome er ner ee nan anne ee ee | 
| deckname]| START] 0 
l [BC {15,m+1+4(15) BRANCH AROUND CONSTANTS IN CALLING SEQUENCE | 
; DC |X*m'‘ m MUST BE AN ODD INTEGER TO INSURE THAT THE PROGRAM | 
; | DC }CLm* name’ STARTS ON A HALF-WORD BOUNDARY. THE NAME CAN BE PADDED | 
| * | | WITH BLANKS. | | 
| {STM |14,R,12(13) THE CONTENTS OF REGISTERS 14, 15, AND O THROUGH R ARE | 
| * | | STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS ANY | 
| * | | NUMBER FROM 2 THROUGH 12. | 
| |BALR |B,0 ESTABLISH BASE REGISTER (2<B<12) | 
l | USING|*,B | 
| fuser |written source statements | 
| | - | 
| | [ + | 
| | { | 
| | LM |2,R,28(13) RESTORE REGISTERS | 
| IMVI j12(13),X'FF' INDICATE CONTROL RETURNED TO CALLING PROGRAM | 
| [BCR |15,14 RETURN TO CALLING PROGRAM | 
CSch pe eneenees ca Sah as we a th a ee J 


“Figure 66. 


94 


Linkage Conventions for Lowest Level Subprogram 


| deckname]| START] 0 
| EXTRN] namea 


| {BC }15,m+1+4 (15) 

| | DC }X*m‘ 

| | DC {|CLm* name, 

| * | |}SAVE ROUTINE 

| ISTM |14,R,12(13) THE CONTENTS OF REGISTERS 14, 15, AND O THROUGH R ARE 
| | | STORED IN THE SAVE AREA OF THE CALLING PROGRAM, R IS ANY 
| | i NUMBER FROM 2 THROUGH 12. 

| }BALR |B, 0 ESTABLISH BASE REGISTER 

| | USING|*,B 

| | LR {9,13 LOADS REGISTER 13, WHICH POINTS TO THE SAVE AREA OF THE 
| * | | CALLING PROGRAM, INTO ANY GENERAL REGISTER, Q, EXCEPT 0, 
| * | | 1, 13, AND 15. 

| | LA {13,AREA LOADS THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO 

| * | | REGISTER 13. 

| | ST }13,8(0,Q) STORES THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO THE 
| * { ] CALLING PROGRAM'S SAVE AREA 

| | ST $2,4(0,13) STORES THE ADDRESS OF THE PREVIOUS SAVE AREA (THE SAVE 
| * | | AREA OF THE CALLING PROGRAM) INTO WORD 2 OF THIS PRO- 
| * | GRAM'S SAVE AREA 

| | BC {}15, prob, 

| AREA {DS {18F RESERVES 18 WORDS FOR THE SAVE AREA 

| * | [END OF- SAVE ROUTINE 

|prob, Juser |written program statements 

| [ - | 

| - | 

| | - | 

| * | {CALLING SEQUENCE 

| | LA {1,ARGLIST LOAD ADDRESS OF ARGUMENT LIST 

| | L 15, ADCON 

| |BALR |14,15 

| [more |user written program statements 

] |. | 

| l- | 

| | - | 

| * | |RETURN ROUTINE 

| |G ]13, AREA+4 LOADS THE ADDRESS OF THE PREVIOUS SAVE AREA BACK INTO 
| * | | REGISTER 13 

| | LM }2,R,28(13) 

| |L {14,12(13) LOADS THE RETURN ADDRESS INTO REGISTER 14. 

|MVI ={12(13),X‘FF' 

| {BCR {15,14 RETURN TO CALLING PROGRAM 

| * | {END OF RETURN ROUTINE 

| ADCON | DC {A(namesz) 

| + {ARGUMENT LIST 

JARGLIST |DC |AL4 (arg, ) ADDRESS OF FIRST ARGUMENT 

| |. | 

| om 

| | DC {x*8o' INDICATE LAST ARGUMENT IN ARGUMENT LIST 

| [DC | AL3 (argn) ADDRESS OF LAST ARGUMENT 

Sseegos a aN ese i ee ate a aeian ee ee 
nee 67. Higher Level Assembler Subprogram 


NAME OF THE SUBPROGRAM CALLED BY THIS SUBPROGRAM 
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Sharing Data in COMMON 


Both named and blank COMMON in a FORTRAN 
IV program can be referred to by an 
assembly language subprogram. To refer to 
named COMMON, the V-type address constant 


name DC V(name of COMMON) 
is used. 
If a FORTRAN program has a blank COMMON 


area and blank COMMON is also defined (by 
the COM instruction) in an assembly lan- 


guage subprogram, only one blank COMMON 
area iS generated for the output load 
module. Data in this blank COMMON is 


accessible to both programs. 


ec te ee se ha ee he 
| ADCON DC A(prob, ) ] 
| : | 
. | 
| : 
l LA 14,RETURN | 
L 15, ADCON | 
{ CNOP 2,4 | 
| BALR 1,15 | 
| DC AL4 (arg, ) | 
] DC AL4 Carga) | 
| . | 
. | 
| . 
| DC Xx'80' | 
| DC AL3 (argn) | 
| | 


RETURN BC 0,X*isn' 


2 ae ee eee ED oe eee Gee Ce ee ee ee ere ee ee ee ee ee ee es ee ee ee ee ee ee ee ee ee ee es ee es ee ee es a es ee ee 


Figure 68. In-Line Argument List 
RETRIEVING ARGUMENTS FROM THE ARGUMENT LIST 


The argument list contains addresses for 
the arguments passed to a subprogram. The 
order of these addresses is the same as the 
order specified for the arguments in the 
calling statement in the main program. The 
address for the argument list is placed in 
register 1. (If statement numbers.) are 
passed as arguments, they are not placed in 
the argument list. See "Return i in an 
Assembler Language Subprogram.") For exam- 
ple, when the statement 


CALL MYSUB(A,B,C) 


is compiled, the following argument list is 
generated. 


100000000] address for A | 
ca eae Ne ca ek J 
| 00000000 | address for B | 
eg eee NGI a Rare eae ot te er el pe Ine eee et are nee | 
Laer | address for C | 


For purposes of discussion, A is a 
real*8 variable, B is a subprogram name, 
and C iS an array. | 


The address of a variable in the calling 
program is placed in the argument list. 
The following instructions in an assembler 
language subprogram can be used to move the 
real*8 variable A to location VAR in the 
Subprogram. . 


L Q,0(1) 
MVC VAR(8),0(Q) 
where: 


Q is any general register except 0 
For a subprogram reference, an address 
of a storage location is placed in the 
argument list. The address at this storage 
location is the entry point to the subpro- 
gram. The following instructions can be 
used to enter subprogram B from the subpro- 
gram to which B is passed aS an argument. 


L O,4(1) 
L 15,0(Q) 
BALR 14,15 
where: 


Q is any general register except 0 


For an array, the address of the first 
variable in the array is placed in: the 
argument list. ‘An array [for example, a 
three-dimensional array C (3,2,2)] appears 
in this format in main storage: 


ists 141): C0244) €0351,2)- <C4:9;1)2-— 


“-c(3, 1,2): €ll,2,;2) “€C2,;2)¢2)° CC3,.2,2) 


Table 15 shows’ the 
format for arrays of 1, 2, 
sions. 


general subscript 
and 3 dimen- 


Table 15. Dimension and Subscript Format 


{Array A Subscript Format | 
}~-~~~--~---y~---------------------------- 4 
JA(D1) ja(s1) 

|A(D1,D2) 


|A(S1,S2) | 
{}A(D1,D2 eD3) JA(S1, S2,S3) | 
{}D1, D2, aaa D3 are integer constants used| 
Jin the DIMENSION statement. Si, S2, and| 
{S3 are subscripts used with subscripted| 
| variables. | 


The address of the first variable in the 
array is placed in the argument list. To 
retrieve any other variables in the array, 
the displacement of the variable, that is, 
the distance of a variable from the first 
variable in the array, must be calculated. 
The formulas for computing the displacement 
(DISPLC) of a variable for one, two, and 
three dimensional arrays are: 


DISPLC=(S1-1) *L 
DISPLC= (S1-1) *L+ (S2-1) *D1*L 
DISPLC=(S1-1) *L+ (S2-1) *D1*L+ (S3-1) *#D2*D1*L 


where: 
L is the length of each variable in 
the array 
For example, the variable C(2,1,2) in 


the main program is to be moved to a 
location ARVAR in the subprogram. Using 
the formula for displacement of variables 
in a three-dimensional array, the displace- 
ment (DISPLC) is calculated to be 28. The 
following instructions can be used to move 
the variable, | 


LA Q,8 (13) 

LA R,DISPLC 
L S,0(0,R) 
ST S, ARVAR 

where: 


Q, R, and S are general registers; 
Q and R cannot be general register 
0 | ) 


Example: An assembler language subprogram 
is to be named ADDARR, and a real variable, 
an array, and an integer variable are to be 


passed as arguments to the subprogram The 
statement : 

CALL ADDARR (X,Y,J) 
is used to call the subprogram. Figure 69 


shows’ the used 


subprogram. 


linkage in the assembler 


RETURN 1 in an Assembler Language 
Subprogram 


When a statement number iS an argument 
in a CALL to an assembler language subpro- 


gram, the subprogram cannot access the 
statement number argument. 
To accomplish the same thing as the 


FORTRAN statement RETURN i (used in FORTRAN 
subprograms to return to a point other than 
that immediately following the CALL), the 
assembler subprogram must place 4*1i xin 
register 15 before returning to the calling 
program. 3 


For example, when the statement 


CALL SUB(A,B, 610, &20) 


is used to call an assembler language 
Subprogram, the following instructions 
would cause the subprogram to return to the 
proper point in the calling program: 


LA 15,4 (to return to 10) 


BCR 15,14 


LA 15,8 (to return to 20) 


BCR 15,14 
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[2,8 (1) MOVE THIRD ARGUMENT TO THE LOCATION CALLED INDEX IN 
| INDEX(4),0¢€2) THE ASSEMBLER LANGUAGE SUBPROGRAM. 

}3.0(1) MOVE FIRST ARGUMENT TO THE LOCATION CALLED VAR IN THE 
[VAR(4),0(3) ASSEMBLER LANGUAGE SUBPROGRAM 

[4,4 (1) LOAD THE ADDRESS OF THE ARRAY TO GENERAL REGISTER 4. 


rT 
| Name | Oper. | Operand 
JADDARR |STARTJ0O 
{3B [EQU |8 
| BC }15,12(15) 
|DCc [x7 7 | 
{Dc | CL7 * ADDARR* 
ADDARR [STM |14,12,12(13) 
|BALR |B,9 
| USING|*,B 
{L 
| MVC 
|L 
| MVC 
| L 
|L [4,4(4) 
fuser, Jwritten statements 
| [| . 
| | - 
| | + 
| LM J}14,12,28(13) 
IMVI [12(13),X'FF' 
J|BCR {15,14 
{DS | OF 
| INDEX [Ds j1iF 
| VAR | DS {1F 
ip 
Figure 69. Assembler Subprogram Example 
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This appendix contains a detailed de- 
scription of the diagnostic messages pro- 
duced during compilation and load module 
execution. 


COMPILER DIAGNOSTIC MESSAGES 


Two types of compiler diagnostic messa- 
ges are generated -- error/warning and 
status. , 


Compiler Error/Warning Messages 


The following text contains a descrip- 
tion of error/warning messages produced by 
the compiler. The message is shown with an 
explanation. | | 


IEYO001I ILLEGAL TYPE 


Explanation: The variable in an 
Assigned GO TO statement is not an 
integer variable; or the variable 
in an assignment statement on the 
left of the equal sign is of 
logical type and the expression on 
the right side does not corre- 
spond; or an argument in a ref- 
erence to an IBM-supplied subpro- 


gram is not the type required by 
the subprogram. (Condition Code 
8) 

IEYO002I LABEL 
Explanation: The statement in 
question is unlabeled and follows 
a transfer of control; the state- 
ment therefore cannot be executed. 
(Condition Code 0) 

IEYO03I NAME LENGTH 

| Explanation: The name of a varia- 

ble, COMMON block, NAMELIST or 


subprogram exceeds six characters 
in length; or two variable names 
appear in an expression without a 
separating operation symbol. 
(Condition Code 4) | 


IEYOO4L 


IEYOOSI 


IEYOO6L 


IEYOO7I 


ITEYOO8I 


because of an 
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COMMA 


Explanation: The comma required in 
the statement has been omitted. 
(Condition Code 0) 


ILLEGAL LABEL 


usage of a 
example, an 
is made to branch to the 


Explanation: Illegal 
statement label; for 


attempt 


label of a FORMAT statement. 
(Condition Code 8) 

DUPLICATE LABEL 

Explanation: The label appearing 


in the label field of a statement 
has previously been defined for 
another statement. (Condition 
Code 8) . 


ID CONFLICT 


Explanation: The name of a varia- 
ble or subprogram has been used in 
conflict with the type that was 
defined for the variable or  sub- 
program in a previous statement. 

Examples: The name listed ina 
CALL statement is the name of a 
variable; a single name appears 
more than once in the dummy list 
of a statement function; a name 
listed in an EXTERNAL statement 


has been defined in another con- 
text. (Condition Code 8) 
ALLOCATION 


Explanation: The storage alloca- 
tion specified by a source module 
statement cannot be performed 
inconsistency 
between the present usage of a 
variable name and some prior usage 
of that name. 


Examples: A name listed in a COM- 
MON block has been 1isted in 
another COMMON block; a variable 
listed in an EQUIVALENCE statement 
is followed by more than _ seven 
subscripts. (Condition Code 8) 
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IEYOO9T 


IEYO0101 


IEYO111 


ITEYO12I 


IEYO131 


ITEYO14I 
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Arithmetic IF 


ORDER 


The statements con- 


Explanation: 


tained in the source module are 


used in an improper sequence. 


Examples: An IMPLICIT statement 
does not appear as the first or 
second statement of the source 
module; an ENTRY statement appears 
within a DO loop. (Condition Code 
8) | 


SIZE 


Explanation: A number used in the 
source module does not conform to 
the legal values for its use. 


Examples: A label used in a state- 
ment exceeds the legal size for a 
Statement label; the size specifi- 
cation in an Explicit Specifi- 
cation statement is not accepta- 
ble; an integer constant is too 
large. (Condition Code 8) 


UNDIMENSIONED 


Explanation: A variable name is 
used aS an array (i.e., subscripts 
follow the name), and the variable 
has not been dimensioned. 
(Condition Code 8) 


SUBSCRIPT 


Explanation: The number of sub- 
scripts used in an array reference 
is either too large or too small 
for the array. (Condition Code 8) 


SYNTAX 


Explanation: The statement or 
part of a statement to which this 
message refers does not conform to 
the FORTRAN IV syntax. 


Examples: The statement cannot be 
identified; a non-digit appears in 
the label field; fewer than three 
labels follow the expression in an 
statement. 
(Condition Code 8) 


CONVERT 


The mode of the con- 
Stant used in a DATA or in an 
Explicit Specification statement 
is different from the mode of the 
variable with which it is asso- 
ciated. The constant is then con- 
verted to the correct mode. 
(Condition Code 0) 


Explanation: 


IEYO15I 


IEYO016I 


IEYO171 


IEY018I 


IEY019I 


IEYO20I 


NO END CARD 


Explanation: The source module 
does not contain an END statement. 
(Condition Code 0) 


ILLEGAL STA. 


Explanation: The context in which 
the statement in question has been 
used is illegal. 


Examples: The statement "S" ina 
Logical IF statement is a Specifi- 
cation statement, a DO statement, 
etc.; an ENTRY Statement appears 
in the source module and the 
source module is not a subprogran. 
(Condition Code 8) 


ILLEGAL STA. WRN. 

Explanation: The message is pro- 
duced aS a result of any of the 
following: a RETURN statement 
appears and the source module is 


not a subprogram; a RETURN i 
Statement appears in a FUNCTION 
Subprogram. (Condition Code 0) 
NUMBER ARG 


Explanation: The reference to a 
library subprogram specifies an 
incorrect number of arguments. 
(Condition Code 4) 


FUNCTION ENTRIES UNDEFINED 


Explanation: If the program being 
compiled is a FUNCTION subprogram, 
and there is no scalar with the 
same name as the FUNCTION nor is 
there a definition for each ENTRY, 
the message appears on the SYS- 
PRINT data set. A list of the 
hames in error is printed follow- 
ing the message. (Condition Code 
0) 


COMMON BLOCK name ERRORS 


Explanation: This message per- 
tains to errors that exist in the 
definitions of EQUIVALENCE sets 
which refer to the COMMON area. 
The message is produced when there 
is a contradiction in the alloca- 
tion specified, a designation to 
extend the beginning of the COMMON 
area, or if the assignment of 
COMMON storage attempts to allo- 
cate a variable to a location 
which does not fall on the 


ITEY0211 


IEYO22TI 


LTEYO231 


IEYO24I 


ITEYO25I 


IEYO26I 


appropriate boundary; "“name" is 
the name of the COMMON block in 
error. (Condition Code 4) 


UNCLOSED DO LOOPS 


Explanation: The message is pro- 
duced if DO loops are initiated in 
the source module, but their ter- 
minal statements do not exist. A 
list of the labels which appeared 
in the DO statements but were not 
defined follows the printing of 
the message. (Condition Code 8) 


UNDEFINED LABELS 


Explanation: If any labels are 
used in the source module but are 
not defined, this message is pro- 
duced. A list of the undefined 
labels appears on the lines fol- 
lowing the message. However, if 
there are no undefined labels, the 
word NONE appears on the same line 
as the message. (Condition Code 
8) 


EQUIVALENCE ALLOCATION ERRORS 


Explanation: This message is pro- 
duced when there is a conflict 
between two EQUIVALENCE sets, or 
if there is an incompatible bound- 
ary alignment in the EQUIVALENCE 
set. The message is followed by a 
list of the variables which could 
not be allocated according to 
source module specifications. 
(Condition Code 4) 


EQUIVALENCE DEFINITION ERRORS 


This message denotes 
an error in an EQUIVALENCE set 
when an array element is outside 
the array. (Condition Code 4) 


Explanation: 


DUMMY DIMENSION ERRORS 


Explanation: If variables speci- 
fied as dummy array dimensions are 
not in COMMON and are not global 
dummy variables, the above error 
message is produced. A list of 


the dummy variables which are 
found in error is printed on the 
lines following the message. 


(Condition Code 4) 


BLOCK DATA PROGRAM ERRORS 


ITEYO0321 


Explanation: This message is pro- 
duced if variables in the source 
module have been assigned toa 
program block but have not been 
defined previously as COMMON. A 
list of these variables is printed 
on the lines following the mes- 
sage. (Condition Code 4) 


NULL PROGRAM 


This message is pro- 
end of file mark 
FORTRAN state- 
source module. 


Explanation: 
duced when an 


precedes any true 
ments in the 
(Condition code 0) 


Compiler Status Messages 


The 


following paragraphs 


describe the 


messages that are produced during the oper- 


ation of the 
progress 


compiler which denote the 


of the compilation. Most of the 


messages discussed in this section pertain 
to the conditions that result in the termi- 
nation of the compilation. 


IEYO28I 


IEYO291 


LEYO301 


IEYO311 
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NO CORE AVAILABLE-COMPILATION TER- 
MINATED 


Explanation: This message is pro- 
duced when the system is unable to 
supply the compiler with an addi- 
tional 4K byte block of roll (or 
table) storage. (Condition Code 
16) 


DECK OUTPUT DELETED 


Explanation: If the DECK option 
has been specified, and an error 
occurs during the process of 
punching the designated output, 
this message is produced. No con- 
dition code is generated for this 
error. 


LINK EDIT OUTPUT DELETED 


Explanation: If the LOAD option 
has been specified, and an error 
occurs during the process of gen- 
erating the load module, this mes- 
sage is produced. (Condition Code 
16) 


ROLL SIZE EXCEEDED 


Explanation: This message is pro- 
Guced when the WORK or EXIT roll 
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IEYO331 


IEYO341 


IEYO0351 


(table) has exceeded the storage 
capacity to which it has_ been 
assigned, or some other roll used 


by the compiler has exceeded 64K 
bytes of storage. (Condition Code 
16) 

EXCESSIVE COMMENTS 

Explanation: If more than 49 con- 


tigious comment and/or continua- 
tion cards are read, this message 
is printed, and the remainder of 
the cards are skipped until a card 
that is not a comment or continua- 
tion card is encountered. (There 
is no restriction on the number of 
comments at the beginning of the 
deck.) No condition code is gen- 
erated for this message. 


I/O ERROR [COMPILATION TERMINATED] 
XXX oo XXX 


Explanation:. This message is pro- 
duced when an input/output error 
is detected during compilation. 
If the error occurred on SYSPUNCH, 
compilation is continued and the 
"COMPILATION TERMINATED" portion 
of the message is not printed. 
(Condition Code 8). If the error 
occurred on SYSIN, SYSPRINT or 
SYSLIN, compilation is terminated. 
(Condition Code 16). xxx...xxx is 


the character string formatted by 
the SYNADAF macro instruction. 
For an interpretation of this 
information, see the publication 


IBM System/360 Operating System: 


Supervisor and Data Management 
Macro Instructions, Form C28-6647. 


UNABLE TO OPEN ddname 


Explanation: This message is pro- 
duced when the required ddname 
data definition card is missing or 
the ddname is misspelled. 


LOAD MODULE EXECUTION DIAGNOSTIC MESSAGES 


The 


load module produces three types of 


diagnostic messages: 


e Program interrupt messages. 


e Execution error messages. 


e Operator messages. 
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Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are 
written when an exception occurs. The 
format is: 


XXXXXXXX 


1HC2101 PROGRAM INTERRUPT ( Jou PSW IS xxxxxxx 


TOONONAGA 


Note: Codes 4, 5, 6, and 7 are associated. 
with the execution-time adjustment of 
boundary alignment errors and appear only 
when the system is generated to provide 
boundary alignment adjustment; i.e., when 
BOUNDRY=ALIGN is specified in the FORTLIB 
macro instruction (see the publication IBM 


System/360 Operating System, System 
Generation). | 





If the letter A appears in the message, 
boundary adjustment has taken place. The 
letter P in the message indicates that the 
interruption was precise. This will always 
be the case for non-specification interrupt 
messages in FORTRAN except when using 
machines with special hardware on which 
imprecise interruptions may occur. The 
eighth character in the PSW (1.e., 4, 5, 6, 


7, OO OD, or F) represents the code number 
(in hexadecimal) associated with the type 
of interruption. The following text des-~ 
cribes these interruptions. 

Protection Exception: The protection 
exception, assigned code 4, is recognized 


when the key of an operand in storage does 
not match the protection key in the PSW. A 
message is issued only if a specification 


exception (code 6) has already been recog- 
nized in the same instruction. Otherwise, 
the job terminates abnormally. 

Addressing Exception: The addressing 


exception, assigned code 5, is recognized 
when the address of the data is outside of 


the available storage for the particular 
installation. A message is issued only if 
a specification exception (code 6) has 
already been recognized in the same 
instruction. Otherwise, the job terminates 
abnormally. 


Specification Exception: The specification 
exception, assigned code 6, is recognized 


when a data address does not specify an 
integral boundary for that unit of informa- 


tion. A specification error would occur 
during execution of the following instruc- 
tions: 


DOUBLE-PRECISION D, E 
COMMON A, B, C 
EQUIVALENCE (B, D) 

D = 3.0D02 


Note: If an instruction contains a bounda- 
ry violation, a specification interrupt 
will occur and the message will be issued 
with code 6. The boundary-adjustment rou- 
tine will then be invoked, LE the 
BOUNDRY=ALIGN option was specified in the 
FORTLIB macro instruction during system 
generation. If an instruction which has 
been processed for boundary misalignment 
also contains a protection, addressing, or 
data error, the interrupt message will be 
reissued with the appropriate code (4, 5, 
Or 7). The job will then terminate because 
both a specification error and a protec- 
tion, addressing, or data error have been 
detected. The completion code in the dump 
will specify that the job terminated 
because of the specification error. 





Data Exception: The data exception, 
asSigned code 7, is recognized when the 
Sign or digit codes for a CONVERT TO BINARY 
instruction are incorrect. A message is 
issued only if a specification exception 
(code 6) has already been recognized in the 
Same instruction. Otherwise, the job ter- 
minates abnormally. 


Fixed-Point-Divide Exception: The fixed- 
point-divide exception, assigned code 


number 9, is recognized when division of a 
fixed-point number by zero is attempted. 
For example, a divide exception would occur 
during execution of the following state- 
ment: 


K=I/J9 

where: 

J=0 and 

I=7 
Exponent-Overflow Exception: The exponent- 
overflow exception, assigned code number C, 
is recognized when the result of a 
floating-point addition, subtraction, 
multiplication, or division is greater than 
Or equal to 1663 (approximately 7.2x1075). 


For example, an exponent-overflow would 
occur during execution of the statement: 


A=1.O0E+75+7.2E+75 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction and sign is correct. How- 
ever, the number is not usable for further 
computation since its characteristic field 


no longer reflects the true exponent. The 
content of the result register as it exist- 
ed when the interrupt occurred is printed 
following the program interrupt message 
with the format: 


REGISTER CONTAINED hhhhhhhhhhhhhhhh 


where: 
hhhhhhhhhhhhhhhh is the floating- 
point number in hexadecimal nota- 
tion 


Exponent overflow causes “exponent 
wraparound" - i.e., the characteristic 
field represents an exponent that is 128 


smaller than the correct one. Treating 
bits 1 to 7 (the exponent characteristic 
field) of the floating-point number as a 


binary integer, the true exponent (TE) 
be computed, as follows: 


may 


TE=(Bits 1 to 7) +128 - 64 


Before program execution continues, the 
FORTRAN library sets the result register to 
the largest possible floating-point number 
that can be represented in short precision 
(1663% (1-167) ) or in long precision 


(1663* (1-167-24%)), but the sign of the 


result is not changed. The condition code 
is not altered. 
Exponent-Underflow Exception: The 


exponent-underflow exception, assigned code 
number D, is recognized when the result of 
a floating-point addition, subtraction, 
multiplication, or division is less than 
16-65 (approximately 5.4x10779). For exam- 
ple an exponent-underflow exception would 
occur during execution of the statement: 


A 1.0E-50*1.0E-50 


Although exponent underflows are maska- 
ble, FORTRAN jobs are executed without the 
mask so that the library will handle such 
interrupts. 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction and Sign iS correct. How- 
ever, the number is not usable for further 
computation since its characteristic field 
no longer reflects the true exponent. The 
content of the result register as it exist- 
ed when the interrupt occurred is printed 
following the program interrupt message 
with the format: 


REGISTER CONTAINED hhhhhhhhhhhhhhhh 


where: 
hhhhhhhhhhhhhhhh is the floating- 
point number in hexadecimal nota- 
tion 
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Exponent underflow causes 
wraparound" - i.e., the 
field represents an exponent that is 128 
larger than the correct one. Treating bits 
1 to 7 (the exponent characteristic field) 
of the floating-point number as a binary 
integer, the true exponent (TE) may be 
computed as follows: 


"exponent 


TE=(Bits 1 to 7) - 128 - 64 


Before program execution continues, the 
FORTRAN library sets the result register to 
a true zero of correct precision. If the 
interrupt resulted from a floating-point 
addition or subtraction operation, the 
condition code is set to zero to reflect 
the setting of the result register. 


Note: The System/360 Operating System FOR- 
TRAN programmer who wishes to take advan- 
tage of the “exponent wraparound" feature 
and handle the interrupt in his own program 
must call an assembly language subroutine 
to issue a SPIE macro instruction which 
will override the FORTRAN interruption :rou- 
tine. 


Floating~Point-Divide Exception: | The 
floating-point-divide exception, assigned 


code number F, is recognized when division 


of a floating-point number by zero is 
attempted. For example, a floating-point 
divide exception would occur during 


execution of the following statement: 
C=A/B 
where: 


B=0.0 and 
A=1.0 


Execution Error Messages 


Execution error messages have the form: 
IHCxxxI {message text] 
TRACEBACK FOLLOWS ... 


where: 
xxx iS the error code 


Traceback, which is a diagnostic tool con- 
taining a list of the routines in the 
direct line of call to the routine in 
error, is discussed in the section "System 
Output." 


In the following text, the error codes 
are given with an explanation describing 
the type of error. Preceding the explana- 
tion, an abbreviated name is given indicat- 
ing the origin of the error. For any load 
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characteristic | 


module execution error, unless otherwise 
stated below, a condition code of 16 is 
generated and the job step is terminated. 


The abbreviated name for the origin of 
the error is: 


IBC -~ IHCFCOMH routine (performs inter- 
ruption, conversion, and error 
procedures). _ 


FIOCS ~~ IHCFIOSH routine (performs I/0 
operations for FORTRAN load module 
execution). 


NAMEL -- IHCNAMEL routine (performs the 
processing of NAMELIST specifications). 


IBERR -- IHCIBERH routine (performs the 
processing of errors detected during 
execution of the load module). 


DIOCS -- JIHCDIOSE routine (performs 
direct-access I/O operations for FORTRAN 
load module execution). 


LIB -~ SYS1.FORTLIB. 
of the messages, the module name is 
given followed by the entry point 
name(s) enclosed in parentheses. 


In the explanation 


FCVTH ~- JIHCFCVTH routine 
conversions). 


(performs 


IHC2111 


Explanation; IBC -- An invalid 
character has been detected ina 
FORMAT statement. 


IHC2121 


Explanation: IBC -- An attempt 
has been made to read or write a 
record, under FORMAT control, that 
exceeds the buffer length. 


IHC2131I 


Explanation: IBC -- The input 
list in an I/O statement without a 
FORMAT specification is larger 
than the logical record. 


ITHC2141 


Explanation: FIOCS -- For records 
in sequential data sets written 
with no FORMAT control, for which 


the RECFM subparametéer must be V 


IHC215I 


ITHC2161 


Explanation: 


IHC2171 . 


' Explanation: 


(variable), either U (undefined) 
or F (fixed) was specified. 


Explanation: FCVTH -- An invalid 
character exists for the decimal 


input corresponding to an I, E, F, 
or D format code. 


LIB An illegal 
sense light number was detected in 
the argument list in a call to the 


SLITE or SLITET subroutine. 


end of 
READ 
program 


IBC An 
data set was sensed during a 
Operation; that is, a 


attempted to read beyond the data. 


IHC2181I 


I/O ERROR XXX oe o XXX 


Explanation: IBC -- A permanent 
input/output error has been 
encountered, or an attempt has 
been made to read or write with 
magnetic tape a record that is 
less than 18 bytes long. 


XXX..eeXXX 1s the character string 
formatted by the SYNADAF macro 
instruction. For an interpretion 


of this information, see the pub- 


~ C28-6647. 


lication IBM System/360 Operating 


System: Supervisor and Data Man- 


agement Macro Instructions, Form 
After the traceback is 


completed, control is returned to 


the call routine statement desig- 


IHC2191 


FORTRAN READ 


nated in the ERR parameter of a 
Statement if that 
parameter was specified. 


Explanation: FIOCS -- A data set 
is referred to in the load module, 
but no DD statement is supplied 
for it or a DD statement has an 


erroneous ddname. 


IHC2201 


IHC2211 


IHC2221 


IHC2231 


IHC2241 


IHC2251 


IHC2301 


IHC2311 
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Explanation: FIOCS -- A data set 
reference number exceeds the limit 
Specified for data set reference 
numbers when this operating system 
was generated. 


ae a 


Explanation: NAMEL An input 
variable name exceeds eight char- 


Explanation: NAMEL - An input 
variable name is not in the NAME- 


LIST dictionary, Or an array is 
specified with an insufficient 
amount of data. 

Explanation: NAMEL -~- An input 


Variable name or a 
no delimiter. 


subscript has 


Explanation: NAMEL -- A subscript 
is encountered after an undimen- 
Sioned input name. 


Explanation: FCVTH -- An illegal 
character is encountered on input 
for the Z format code. 


SOURCE ERROR AT ISN xxxx - EXECU- 
TION FAILED AT SUBROUTINE-name 


IBERR -- During load 
module execution, a source state-. 
ment error is encountered. The 
internal statement number for the 
source statement is xxxx, the rou- 
tine that contains the statement 
is specified by “name”. 


Explanation: DIOCS Direct 
access input/output statements are 
used for a sequential data set, or 
input/output statements for a 
sequential data set are used for a 
direct access data set. 
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IHC2321 


IHC2331 


IHC2341 


LIHC2351I 


IHC2361 


IHC2371 


ITHC241T 


IHC242T 
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-Girect access) data 


Explanation: DIOCS -- Relative 
position of a record is not a 


positive integer, or the relative 
position exceeds the number of 
records in the data set. 


Explanation: DIOCS -~ The record 
length specified in the DEFINE 


FILE statement exceeds the physi- 
cal limitation of the volume 
assigned to the data set in the DD 
statement. 


Explanation: DIOCS -- The data 
set assigned to print execution 
error messageS cannot be a_ direct 
access data set. 


Explanation: DIOCS ~-- A data set 
reference number assigned to a 


used for a sequential data set. 


Explanation: IBC -- A READ is 
executed for a data set that has 
not been created. 


Explanation: DIOCS -- Length of 
record read did not correspond to 
length of record specified in 
DEFINE FILE statement. 


Explanation: LIB a For an 
exponentiation operation (1I1**J) in 
the subprogram IHCFIXPI (FIXPI#) 
where I and J represent integer 
variables or integer constants, I 
is equal to zero anddJ is less 
than or equal to zero. 


Explanation: LIB =< For an 
exponentiation operation (R**J) in 
the subprogram IHCFRXPI (FRXPI#), 


set has been 


IHC2431 


ITHC244T 


IHC245I 


IHC246I 


IHC247I 


where R represents a real*4 varia-~ 


ble or integer constant, R is 
equal to zero and J is less’ than 
or equal to zero. 


Explanation: LIB -- For an 
exponentiation operation (D**J) in 
the subprogram IHCFDXPI (FDXPI#), 
where D represents a real*8 varia- 
ble or real*8 constant and J rep- 
resents an integer variable or 
integer constant, D is equal to 
zero and J is less than or equal 
to zero. 


Explanation: LIB -- For an 
exponentiation operation (R**S) in 
the subprogram IHCFRXPR(FRXPR#), 
where R and S-_ represent real*4 
variables or real*4 constants, R 
is equal to zero and S&S is less 
than or equal to zero. 


Explanation: LIB -- For an 
exponentiation operation (D**P) in 
the subprogram IHCFDXPD(FDXPD#), 
where D and P represent real*8 
variables or real*8 constants, D 
is equal to zero and P is less 
than or equal to zero. 


Explanation: LIB -~ For an 
exponentiation operation (Z**J) in 
the subprogram IHCFCXPI(FCXPI#), 
where Z represents a complex*8 
variable or integer constant, Z is 


equal to zero and J is less’ than 
or equal to zero. 
Explanation: LIB =< For an 


exponentiation operation (Z**J) in 
the subprogram IHCFCDXI(FCDXI#), 
where Z represents a complex*16 
variable or complex*16 constant 
and J represents an integer varia- 
ble or integer constant, 2Z is 
equal to zero and J is less than 
or equal to zero. 


IHC2511 


IHC2521. 


IHC2531 


THC2541 


IHC2551 


IHC 2561 


IHC2571 


THC 2581 


Explanation: LIB -- In the sub- 
program IHCSSQORT(SORT), the argu- 
ment is less than 0. 


Explanation: LIB -- In the sub- 
program IHCSEXP(EXP), the argument 
is greater than 174.673. 


Explanation: LIB -- In the sub- 
program IHCSLOG(ALOG and. ALOG10), 
the argument is less than or equal 
to zero. Because this subprogram 
is called by an exponential sub- 
program, this message also indi- 
cates that an attempt has been 
made to raise a negative base to a 
real power. 


Explanation: LIB -- In the sub- 
program IHCSSCN(SIN and COS), the 
absolute value of an argument is 
greater than or equal to 228e% 
(22 8eT=, 82354966406249996D+06). 


Explanation: LIB -- In the sub- 
program IHCSATN2, when entry name 
ATAN2 is used, both arguments are 
equal to zero. 


sub- 


Explanation: LIB -- In the 
program IHCSSCNH(SINH or COSH), 


the argument is 
equal to 174.673. 


Explanation: LIB -- In the sub- 
program IHCSASCN (ARCSIN or 
ARCOS), the absolute value of the 


argument is greater than 1. 


Explanation: LIB -- In the _ sub- 
program IHCSTNCT (TAN or COTAN), 
the absolute value of the argument 
is greater than or equal to 218e'7 
(228e r =.82354966406249996D+06). 


greater than or. 


IHC2591 


IHC2611I 


IHC 2621 


IHC2631 


THC2641 


IHC2651 


_THC2661 


ITHC2671 
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Explanation: LIB -- In the subpro- 
gram IHCSTNCT (TAN or COTAN), the 
argument value is too close to one 
of the singularities 


( +343" ,.. for the tangent 
OY +17,+27,°"° for the cotangent). 


Explanation: LIB -- In the sub- 
program IHCLSQRT(DSQRT), the argu- 
ment is less than 0. 


Explanation: LIB -- In the sub- 
program IHCLEXP(DEXP), the argu- 


ment is greater than 174.673. 


Explanation: LIB -- In the sub- 
program IHCLLOG(DLOG and DLOG10), 
the argument is less than or equal 
to zero. Because the subprogram 


is called by an exponential sub- 
program, this message also indi- 
cates that an attempt has been 


made to raise a negative base to a 
real power. 


Explanation: LIB -- In the sub- 
program IHCLSCN(DSIN and DCOS), 
the absolute value of the argument 
is greater than or equal to 25° 7 
(259en =,35371188737802239D+16). 


LIB -- In subprogram 
entry name DATAN2 
equal 


IHCLATN2, when 


is used, both arguments are 
to zero. 


Explanation: LIB -- In the sub- 
program IHCLSCNH (DSINH or DCOSH), 
the absolute value of the argument 
is greater than or equal to 
174.673. 


Explanation: LIB -- In the sub- 
program IHCLASCN (DARSIN or 
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IHC268L1 


IHC2691 


IHC2711 


ITHC2721I 


IHC2731 


THC274I 


IHC275I1 
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DARCOS), the absolute value of the 
argument iS greater than 1. 


Explanation: LIB ~<-- In the sub- 
program IHCLTNCNT (DTAN or 


DCOTAN), the absolute value of the 
argument is greater than or equal 
to 25°0e7 

(259e7 =, 35371188737802239D+16). 


Explanation: LIB -- In the sub- 
program IHCLTNCT (DTAN or DCOTAN), 
the argument value is too close to 
one of the singularities 


(f=... for the tangent; 


tr, +t27,... for the cotangent). 


Explanation; LIB -- In the sub- 
program IHCCSEXP (CEXP), the value 
of the real part of the argument 
is greater than 174.673. 


Explanation: LIB -- In the sub- 
program IHCCSEXP (CEXP), the abso- 
lute value of the imaginary part 
of the argument iS greater than or 
equal to 218e7 

(228¢e T =, 82354966406249996D+06). 


Explanation: LIB -- In the sub- 
program IHCCSLOG (CLOG), the real 
and imaginary parts of the argu- 
ment are equal to zero. 


Explanation: LIB -- In the sub- 
program IHCCSSCN (CSIN or cCCOS), 


the absolute value of the real 
part of the argument is greater 
than or equal to 218eT 


(228e7 =.82354966406249996D+06). 


Explanation: LIB -~ In the sub- 
program IHCCSSCN (CSIN or CCOS), 
the absolute value of the imag- 


IHC281T1 


IHC2821 


IHC2831 


ITHC284T 


ITHC285I1 


IHC290I 


ITHC291T 


IHC300I 


inary part of the argument is 
greater than 174.673. 


Explanation: LIB -- In the sub- 
program IHCCLEXP (CDEXP), the 
value of the real part of the 
argument is greater than 174.673. 


Explanation: LIB -- In the sub- 
program IHCCLEXP (CDEXP), the 
absolute value of the imaginary 


part of the argument is greater 
than or equal to 25°e7 
(25° f =. 35371188737802239D+16). 


Explanation: LIB -- In the sub- 
program IHCCLLOG (CDLOG), the real 
and imaginary parts of the argu- 


ment are equal to zero. 


Explanation: LIB -- In the sub- 
program IHCCLSCN (CDSIN or CDCOS), 
the absolute value of the _ real 
part of the argument is greater 
than or equal to 25°%e7 

(25°e7 =,35371188737802239D+t16). 


Explanation: LIB -- In the sub- 
program IHCCLSCN (CDSIN or CDCOS), 
the absolute value of the imag- 
inary part of the argument is 
greater than 174.673. 


Explanation: LIB -- In the sub- 
program IHCSGAMA (GAMMA) , the 


value of the argument is outside 
the valid range (27252<x<57.5744). 


Explanation: LIB -- In the sub- 
program IHCSGAMA (ALGAMA), the 
value of the argument is outside 
the valid range (0<x<4.2937x1073). 


Explanation: LIB -- In the sub- 
program IHCLGAMA (DGAMMA), the 


value of the argument is outside 
the valid range (27252<x<57.5744). 


IHC3011I 
Explanation: LIB -~ In the sub- 
program IHCLGAMA (DLGAMA), the 


value of the argument is outside 
the valid range (0<x<4. 2937x1073). 


Operator Messages 


Operator messages for STOP and PAUSE are 
generated during load module execution. 


The message for a PAUSE can be one of 
the following formats: 


PAUSE n 
yy IHCO01A PAUSE ‘message’ 
PAUSE 0 
where: 
yy is the identification num- 
ber 
n is the unsigned i- to 
5-digit integer constant 
specified in a PAUSE source 
statement 
message is the literal constant 
specified in a PAUSE source 
statement 
0 is printed out when a PAUSE 


Statement is executed. 


Explanation: The programmer should give 
instructions that indicate the action to be 
taken by the operator when the PAUSE is 
encountered. 


User Response: TO resume execution, the 
operator presses the REQUEST key. When the 
PROCEED light comes on, the operator types 


REPLY yy,‘*z'‘ 


where: 
yy is the identification num 
ber 
Z is any letter or number 


To resume program execution the operator 
must press the alternate coding key anda 
numeric 5. 


The message for a STOP statement can be 
one of the following formats: 


IHCO02I1 pe ot 


STOP 0 
where: 

n is the unsigned 1- to 
5-digit integer constant 
specified in a STOP source 
statement 

0 is printed when a STOP 


Statement is executed 


User ReSponse: None 
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APPENDIX E: EXTENDED USA CARRIAGE CONTROL CHARACTERS 


Code Interpretation 


-* blank Space one line before printing 
* 0 Space two lines before printing 


= Space three lines before printing 


* + Suppress space before printing 
* 1 Skip to first line of a new page 

2 Skip to channel 2 

3 Skip to channel 3 

4 Skip to channel 4 

5 Skip to channel 5 

6 Skip to channel 6 

7  §kip to channel 7 

8 Skip to channel 8 

9 Skip to channel 9 

A Skip to channel 10 

B Skip to channel 11 

Cc Skip, to channel 12 

V Select punch pocket 1 

W Select punch pocket 2 


*These Carriage control characters are 
identical to the FORTRAN carriage control 
characters specified in the FORTRAN IV 
Language publication. 
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The FORTRAN Debug Facility statements 
(DEBUG, AT, DISPLAY, TRACE ON and TRACE 
OFF) are described in the FORTRAN IV_Lan- 
quage publication. This section describes 
the output produced when these statements 
are used in a FORTRAN source module. 


DEBUG STATEMENT 


The options UNIT, TRACE, SUBTRACE, INIT, 
and SUBCHK may be specified in the DEBUG 
Statement. The UNIT option indicates the 
unit on which the DEBUG output is to be 
written; if this option is omitted, DEBUG 
Output is written on SYSOUT. 


TRACE 


TRACE. output is written only when TRACE 
is On aS a result of the TRACE ON sState- 
ment. For each labeled statement that is 
executed, the line 


TRACE statement-label 


is written. 


SUBTRACE 


SUBTRACE is used to trace program flow 
from one routine to another. For each 
Subprogram called, the line 


SUBTRACE subprogram-name 


is written on entry to the subprogram, and 
the line 


SUBTRACE *RETURN* 


is written on exit from the subprogran. 


INIT 


The output produced as a result of the 
INIT option is written regardless of any 
TRACE ON or TRACE OFF statements in the 
source module. When the value of an unsub- 
scripted variable listed in the INIT OrEsen 
changes, the line 


APPENTIX F: DEBUG FACILITY 


variable-name = value 


is written, with the value given in the 
proper format for the variable type. When 
the value of an element Of an array listed 
in the INIT option changes, the line 


array-name(element-number) = value 


is written, with the format of the value 
determined by the type of the array ele- 
ment. The single element number subscript 
is used regardless of the number of dimen- 
sions on the array. 


SUBCHK 


SUBCHK output is not affected by TRACE 


ON and TRACE OFF statements in the source 
module. When a reference tO an array 
listed in the SUBCHK option includes sub- 


scripts such that the reference is outside 
the array, the line 


SUBCHK array-name(element-number) 


statement 
reference is 


The including the 


operated 


is printed. 
out-of-bounds 
nonetheless. 


DISPLAY STATEMENT 


DISPLAY statement output is identical to 
NAMELIST WRITE output. The first line 
written is the name of the NAMELIST created 
by the compiler for the DISPLAY statement, 
preceded by.the ampersand character: 


&DBGnn# 


where: | 

nn is the 2-digit decimal value 
assigned to the DISPLAY statement; 
this value begins at 01 for the 
first DISPLAY statement in the 
source module and increases by one. 
for each subsequent DISPLAY state- 
ment. 


The. NAMELIST name is followed by the 
DISPLAY list, in NAMELIST format. The 
output is terminated with the line 


&END 
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SPECIAL CONSIDERATIONS 


Any DEBUG output which is. produced dur-~ 
ing an input/output operation is saved in 
Storage until the input or output opération 
is complete, when it is written out. Sav- 
ing this information may require a request 
for additional storage space from the sys- 
tem. 


this situation occurs, the message 


SOME DEBUG OUTPUT MISSING 
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If the request cannot be satisfied, | 
some of the DEBUG output may be lost. If 


is written after the output which was 
Saved. | 


If a subscript appearing in an 
input/output list includes a function ref- 
erence, and the FUNCTION contains a DISPLAY 
statement, the DISPLAY cannot be performed. 
In this case the message 


DISPLAY DURING I/O SKIPPED 


is written in the DEBUG output. 


A, device class 
ABEND dump 82 
ABSTR subparameter 74 
Accessing unused space 75 
Account number 15,16 
Accounting information 
in the EXEC statement 21 
in the JOB statement 15,16 
ACCT parameter 21 
ACCT.procstep parameter 21 
Additional input to the linkage editor 37 
AFF subparameter 74 
Affinity for devices 74 
ALIAS linkage editor control statement 40 
ALX subparameter 50 
Argument list 92,96-97 
Assembler language subprograms | 
addresses of arguments 96-97 
argument list 92 
calling sequence 92 
COMMON area, use of 96 
linkage conventions 92,93 
register use 93 
RETURN 97 
Save area 92 
Subroutine references 92 
Assigning names to temporary data sets 
28, 46 
Asterisk parameter (*) 24-25 
Automatic call library 37,38 
Average record length subparameter 


26,45,51 


49,74 


BACKSPACE statement G4u,57 
Batched compilation 30,35 
BCD compiler option 34 
BLKSIZE subparameter 52 
Blocked records 52,54,57 
BUFNO subparameter 53 
Bypassing a job step 20 
Byte 68 


Card input and output 25,26 
Carriage control characters 
Catalog 11 
Cataloged data sets 11 
Cataloged procedure 
IBM supplied 11,61-64 
invocation of 30-32 
overriding 10,22,65-67 
steps 61-64 
user-written 64 
Cataloged procedure name parameter 18 
CATLG subparameter 29 
CHANGE linkage editor control statement 40 
Channel separation 73 
Column binary mode 25 | 
Comments in job control statements 13 
COMMON area 69,96 
Compile and link edit cataloged procedure 
(FORTGCL) 31,61,63 
Compile cataloged procedure (FORTGC) 
30,61, 62 


25,591,110 


INDEX 


Compile, link edit, and execute cataloged 
procedure (FORTGCLG) 31-32,64,65 
Compiler 

ddnames 32-33 

debug facility output 111-112 

device classes 33 | 

error/warning messages 80,99-101 

invocation of 30,85 

multiple or patched compilation 30-35 

name 32 

object module deck structure 80 

object module listing 78-79 

options 33-35 

restrictions 72-73 

source listing 77 

storage map 77 
Concatenating data sets 

with other data sets 24 

with the system library 20-24 
COND parameter 

in the EXEC statement 20 

in the JOB statement 15-18 
COND. procstep parameter 20 
Condition code 

in the EXEC statement 18-20 

in the JOB statement 15-18 
Constants 68 
CONTIG subparameter 50 
Continuing control statements 13 
Control fields in variable-length 
records 54,55,57 
Control statement messages 15 
Conversion for tape data sets 52 
Creating data sets 46-59 
Cross-reference list, linkage editor 
CYL subparameter 49,75 
Cylinders, direct-access device 


81-82 
49,75 


DATA parameter 25 
Data in input stream 25 
Data set reference number 
Data sets 10-11 
cataloged 11 
labels 11 
Organization 10 
residence 10 
DCB parameter 25,51-53 
DCB ranges and assumptions 58 
DD statement 
asterisk parameter 24-25 
DATA parameter 25 — 
DCB parameter 25,51-53 
ddname 22,48 
DDNAME parameter 48 
definition of 22,46,73 
DISP parameter 28,51 
DSNAME parameter 28,46 
DUMMY parameter 46 
LABEL parameter 43,50 
SEP parameter 74 
SPACE parameter 49,74-75 
SPLIT parameter 75 


41-42 
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SUBALLOC parameter 75 
SYSOUT parameter 26,51 
UNIT parameter 24,48,74 
VOLUME parameter 48 
ddname 22,48 
DDNAME parameter 48 
Debug facility output 111-112 
DECK compiler option 34,79 
Deck structure, object module 8:0 
DEFER subparameter 74 
DEFINE FILE statement 58,72 
Definition of 
DD statement 22,46,73 
EXEC statement 16 
JOB Statement 14 
DELETE subparameter 29 
Delimiter statement 29 
DEN subparameter 52 
Density, tape 52 
Device class 33 
Diagnostic messages 80-81,101-104 
Direct access data sets : 
buffer length 58 
number of buffers 58 
record length 58 
Direct access programming 
associated variable 72 
DEFINE FILE statement 72 
randomizing techniques 70 
record chaining 71 
skeleton records 71 
synonyms 71 
Directory quantity 50,75 
DISP parameter 28-29,51 
Disposition of a data set 28-29,51 
DO loops’ 68 a 
Double-word 68 
DSNAME parameter 
DUMMY parameter 46 
DUMP subroutine 69. 


70-73 


28-46 


EBCDIC compiler option 34 

EBCDIC mode 25 

END card for object modules 80 

END FILE statement 43,44 

ENTRY linkage editor control statement 40 

ERR parameter 70 

Error message data set 44 

Error/warning messages 
generated by the compiler 80,99-101 
generated by the linkage editor 82 


generated for load modules 82,102-109 
ESD card 79 
Exceptions 
exponent-overflow 82,103 
exponent-underflow 82,103 
fixed-point-divide 82,103 
floating-point-divide 82,104 
EXEC statement 
ACCT parameter 21 
ACCT.procstep parameter 21 
COND parameter 20 
COND.procstep parameter 20 
DEFINITION OF 16 
NAME 17 
parm PARAMETER 18,33,65 
parm.PROCSTEP PARAMETER 18,65 


pgm PARAMETER 18-19 
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proc PARAMETER 18-19 
Execution, load module 
DCB assumptions 58 
Gdnames 41 
device classes 45 
error message data set 44 
errors (see error/warning messages) 
program name 41 
EXPDT subparameter 51 
Expiration date for data sets 51 
Exponent-overflow 82,103 | 
Exponent-underflow 82,103 
External references 36,80 


Fields in job control statements 

name field 12 

operand field 13 

operation field 13 
Fixed-length records 54-59 
Fixed-point-divide 82,103 


Floating-point-divide 82,104 
FORTGC 

description of 61 

use of 10,30-31,61 
FORTGCL 

description of 61-62 

use of 10,31,61 
FORTGCLG 

description of 65 

use of 10,31~32,65 
FORTGLG 

description of 62-65 


use of 10,31-62 
FORTRAN library 10,36,38,73 
FORTRAN records | 

direct-access data sets 58-59 

sequential data sets 53-59 
FORTRAN sequence number 42 
FTxxFyyy 41 


Generation data group 27 


ID compiler optio 35 
IEWL 36 ; 
IEWLE150 36 
IEWLE180 36 
ITEWLF4&4O 36 
IEYFORT 32 


_INCLUDE linkage editor control 


statement 37 
Input 

to the compiler 30,32 

to the linkage editor 
Input stream 25 
INSERT linkage editor cantrol statement 40 
Integer constants and variables 68 
Intermediate storage device 33,51 
Interrupt messages 82,109 | 
Invocation of the FORTRAN compiler 
I/O devices 

address 25-26,48,73-74 

name 25-26,48,73-74 

number of 25-26,48,73-74 


36,37 


30,85 


Job 9 © 
Job control statements 
comments 13 


12-13 


continuing 13 
notation for defining 13 
JOB statement 
account number parameter 15,16 
accounting information parameter 15 
COND parameter 15-18 
definition of 14-15 
MSGLEVEL parameter 15 
name 15 
programmer's name parameter 15 
Job step 9 
JOBLIB DD statement 22,29,40 
Jobname 15 


KEEP subparameter 28 
Keyword parameters and subparameters 13 
Keyword.procstep 20,65 


LABEL parameter 43,50 
Labels, data set 11,43,50~-51 
Length 
buffer 52,53,58 
Of FORTRAN records 53,58 
of logical records 53,58 
LET linkage editor option 41 
Library 
automatic call 37,38 
FORTRAN 10,36,38 
private 19 
system 13 
LIBRARY linkage editor control 
Statement 37 
LINECNT compile option 34 
Link edit and execute cataloged procedure 
(FORTGLG) 10, 31-36 
Linkage conventions 92,93 
Linkage editor 
additional input 37 
automatic call library 37,38 
control statements 37,38-40 
cross-reference list 40,81-82 
ddnames used with 37 
device classes 37 
module map 40,81 
name 36 
options 40-41 
primary input 36 
priority 38 
secondary input 36 
LIST linkage editor option 41,77 
LOAD compiler option 35 
Load module 
cross-reference list 81-82 
execution of (see execution, load 
module) 
map 81 
Locations, storage 68 
Logical records 
fixed-length 53,54,55,59 
undefined 54,59 
variable-length 54,55,59 
LRECL subparameter 58 
MAP 
compiler option 35 
linkage editor option 40 
Messages 
compiler error/warning 80,99-101 


control statement 15 
load module 82,102 
operator 82,109 
program interrupt 82,102 
source module diagnostic 81 
Minimum system requirements 68 
MOD subparameter 28 
MODE subparameter 25 
Module map 81 
MSGCLASS parameter 16 
MSGLEVEL parameter 15 
Multiple compilation 30,35 
Multiple link editing 39 
Multiprogramming with a variable number 
of tasks (MVT) 
cataloged procedures 61,62 
job management 12 
programming considerations 73 
MVT (see Multiprogramming with a variable 
number of tasks) 
MXIG subparameter 50 


NAME 
compiler option 32 
linkage editor control statement 39 
Name subparameter 25,48,74 
NCAL linkage editor option 41 
NEW subparameter 28 
NL subparameter 43,50 
NODECK compiler option 34 
NOID compiler option 35 
NOLOAD compiler option 35 
NOMAP compiler option 35 
NOSOURCE compiler option 34 
Notation for defining control 
Statements 13 
Number of I/O devices subparameter 
25-26,48, 73-74 


Object module 

card deck 80 

listing 78-79 

map 81 
OLD subparameter 28 
Operator messages 82,109 
Options 

compiler 33 

linkage editor 40 
Organization of data sets 10 
Output 

of a load module 82 

of the compiler 76-80 

of the linkage editor 81 
OVERLAY linkage editor control 

Statement 40 

Overlaying load modules 40 
Overriding cataloged procedures 

10,22,65-67 


Parameters 
keyword 13 
positional 13 
PARM.procstep parameter 18,35 
Partitioned data set 10 
PASS subparameter 28 
Passed data sets 28 
PAUSE statement 82,102 
PDS (see partitioned data set) 
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PDUMP subroutine 69 
PGM parameter 18-19 


Positional parameters and subparameters 13 


Primary input 36 

Primary quanitity subparameter 
Printer spacing 25,51,92 
Priority schedulers 12 
PRIVATE subparameter 48 
Private volume 48 

PROC parameter 18-19 
Procedure,cataloged 9-10 
Procstep 19,20 
Procstep.ddname 22 
Procstep.SYSIN 30 
Programmer‘s name parameter 15 
PRTSP subparameter 25 

PRTY parameter 16 


49,75 


Randomizing techniques 70 

Real constants and variables 68 

RECFM subparameter 51 

Record chaining 70 

REF subparameter 48 

REGION parameter 17,21 

Register use 93 

REPLACE linkage editor control 
Statement 40 

RETAIN subparameter 49 

Retention period for data sets 49 

RETPD subparameter 51 

Retrieving data sets 26,43 

REWIND statement 44,57 

RLD cards’ 80 

RLSE sSubparameter 50 

ROUND subparameter 50 


Save area 92 

Secondary input 38 

Secondary quantity subparameter 

SEP subparameter 74 

Sequential data set 10 

SER subparameter 49 

Serial number, volume 49 

Skeleton records 71 

SL subparameter 43,50 

SOURCE compiler option 34 

Source listing 34,77 

Space on direct-access volumes 

SPACE parameter 49,74 

Specifying execution of a program 
described in a cataloged procedure 19 
described in a previous job step 19 
in a library 19 

SPLIT parameter 74 

STACK subparameter 25 


49,75 


49,74 
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Stacker selection 25 
Standard labels 11,26,43,50 
Step 
job 9 
procedure 9 
Stepname 17 
STOP statement 
Storage map 77 
SUBALLOC subparameter 75 
Subparameters 14 
Subprograms, assembler language 92 
SYSCP device class 33 
SYSDA device class 33 


82,109 


SYSIN ddname 30,32, 33 
SYSLIB ddname 37,38 
SYSLIN ddname 32,37, 38 
SYSLMOD ddname 37,38 


SYSOUT parameter 33,51 
SYSPRINT ddname 33,37,38 
SYSPUNCH ddname 32,33 


SYSSQ device class 33 
SYSUT1 ddname 37,38 
SYS1.FORTLIB 10,36,40 


Tape density 52 

Temporary names for data sets 
Terminating a job 15 

TRK subparameter 49,75 

TRTCH subparameter 52 

TXT card 80 


28,46 


Unblocked records 
Girect-access data set 58 
sequential data set 
fixed-length 52-58 
undefined 52-58 
variable-length 52-58 
UNCATLG subparameter 29 
Undefined logical record 54 
UNIT parameter 25-26,48, 73-74 
Unit record data sets 25-26,51 


Variable-length logical record 54,55,57 
Variables 69 | 
Volume count subparameter 49 

VOLUME parameter 48 

Volume sequence number subparameter 48 
Volume serial number 48 


Warning messages 
(see error/warning messages) 
Word 68 


XREF linkage editor option 41,81 
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